#!perl -pa sub f{my$m=$t=$p;$i=2;0while$t%$i?$p-=$t%($i=$i*$i<$t?$i+1:$t)?0:$p/$i:($t/=$i)-1;bmodpow{use bigint;0+$a}0+$p+(--$n?&f:$a),$m}($a,$m,$_)=@F;0while-$\+($\=$".f($p=$m,$n=++$_).$/)