OFFSET
1,1
FORMULA
MATHEMATICA
Array[Mod[MersennePrimeExponent@ #, 3] &, 45] (* Michael De Vlieger, Apr 07 2018 *)
PROG
(PARI) forprime(p=1, 1e3, if(isprime(2^p-1), print1(p%3, ", "))) \\ Felix Fröhlich, Aug 12 2014
CROSSREFS
KEYWORD
nonn,more
AUTHOR
Artur Jasinski, Dec 17 2006
EXTENSIONS
a(45)-a(47) from Ivan Panchenko, Apr 08 2018
a(48) from Amiram Eldar, Oct 14 2024
STATUS
approved