|
|
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
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
LINKS
|
|
|
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
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|