login
A126046
Exponents p of the Mersenne primes 2^p - 1 (see A000043) read mod 6.
0
2, 3, 5, 1, 1, 5, 1, 1, 1, 5, 5, 1, 5, 1, 1, 1, 1, 1, 5, 1, 5, 5, 5, 5, 5, 1, 1, 5, 1, 1, 1, 5, 5, 1, 5, 5, 5, 5, 1, 1, 1, 5, 1, 5, 5, 1, 5, 5
OFFSET
1,1
FORMULA
a(n) = A010875(A000043(n)). - Michel Marcus, Apr 07 2018
MATHEMATICA
Array[Mod[MersennePrimeExponent@ #, 6] &, 45] (* Michael De Vlieger, Apr 07 2018 *)
CROSSREFS
KEYWORD
nonn,more
AUTHOR
Artur Jasinski, Dec 17 2006
EXTENSIONS
a(45)-a(46) from Ivan Panchenko, Apr 07 2018
a(47) from Ivan Panchenko, Apr 09 2018
a(48) from Max Alekseyev, Sep 19 2023
STATUS
approved