login
A219030
Powers of odd primes (exponent > 1) for which 2 is not a primitive root.
2
49, 289, 343, 529, 961, 1681, 1849, 2209, 2401, 4913, 5041, 5329, 6241, 7921, 9409, 10609, 11881, 12167, 12769, 16129, 16807, 18769, 22801, 24649, 27889, 29791, 36481, 37249, 39601, 49729, 52441, 54289, 57121, 58081, 63001, 66049, 68921, 69169, 73441
OFFSET
1,1
LINKS
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