login
A138862
First two (i.e., the two most significant) digits of n-th Mersenne prime A000668(n).
4
3, 7, 31, 12, 81, 13, 52, 21, 23, 61, 16, 17, 68, 53, 10, 14, 44, 25, 19, 28, 47, 34, 28, 43, 44, 40, 85, 53, 52, 51, 74, 17, 12, 41, 81, 62, 12, 43, 92, 12, 29, 12, 31, 12, 20, 16, 31
OFFSET
1,1
MATHEMATICA
Join[{3, 7}, FromDigits[Take[IntegerDigits[#], 2]]&/@ (2^MersennePrimeExponent[ Range[ 3, 47]]-1)] (* Requires Mathematica version 10 or later *) (* Harvey P. Dale, Aug 01 2020 *)
CROSSREFS
KEYWORD
base,nonn
AUTHOR
Omar E. Pol, Apr 02 2008
EXTENSIONS
a(40)-a(47) from Ivan Panchenko, Aug 03 2018
Definition clarified by Harvey P. Dale, Aug 01 2020
STATUS
approved