OFFSET
1,1
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..10000
PROG
(PARI) for(n=3, 100000, if(n%2==1&&isprime(n)==0&&znorder(Mod(2, n))!=eulerphi(n)&&matsize(factor(n))[1]==1, print1(n", ")))
(PARI) list(lim)=my(v=List(), L=log(lim+.5)); forprime(p=3, sqrtint(lim\1), for(e=2, L\log(p), if(znorder(Mod(2, p^e))<p^(e-1)*(p-1), listput(v, p^e)))); vecsort(Vec(v)) \\ Charles R Greathouse IV, Nov 12 2012
CROSSREFS
KEYWORD
nonn
AUTHOR
V. Raman, Nov 10 2012
STATUS
approved