OFFSET
1,1
COMMENTS
LINKS
Alexander Aigner, Über Primzahlen, nach denen (fast) alle Fermatzahlen quadratische Nichtreste sind, Monatsh. Math., Vol. 101 (1986), pp. 85-93; alternative link.
PROG
(PARI) L=List([2]); forprime(p=3, 2351, z=znorder(Mod(2, p)); if(znorder(Mod(2, z/2^valuation(z, 2)))%2, listput(L, p))); Vec(L)
CROSSREFS
KEYWORD
nonn
AUTHOR
Arkadiusz Wesolowski, Sep 26 2021
STATUS
approved