A126046 Exponents p of the Mersenne primes 2^p - 1 (see A000043) read mod 6.

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

Links

Table of n, a(n) for n=1..48.

Formula

a(n) = A010875(A000043(n)). - Michel Marcus, Apr 07 2018

Mathematica

Array[Mod[MersennePrimeExponent@ #, 6] &, 45] (* Michael De Vlieger, Apr 07 2018 *)

Crossrefs

Cf. A000043, A010875, A126043-A126059.

Sequence in context: A339640 A031027 A134730 * A030604 A007880 A004573

Adjacent sequences: A126043 A126044 A126045 * A126047 A126048 A126049

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