OFFSET
1,2
MAPLE
[seq(nops(invphi(2+96*i)), i=1..25000)];
MATHEMATICA
s=0; m=96; r=2; Do[s=EulerPhi[n]; If[Equal[Mod[s, m], r], Print[(s-r)/m]], {n, 1, 100000000}]
CROSSREFS
KEYWORD
nonn
AUTHOR
Labos Elemer, May 29 2002
EXTENSIONS
a(20)-a(35) from Donovan Johnson, Jul 27 2011
STATUS
approved