|
|
A138866
|
|
Concatenation of first 3 digits and last 3 digits of n-th Mersenne prime A000668(n).
|
|
7
|
|
|
33, 77, 3131, 127127, 819191, 131071, 524287, 214647, 230951, 618111, 162127, 170727, 686151, 531127, 104087, 147007, 446351, 259071, 190991, 285607, 478111, 346551, 281191, 431471, 448751, 402511, 854671, 536207, 521007, 512311, 746447, 174887, 129591, 412527, 814711, 623151, 127271, 437791, 924071, 125047, 299407, 122247, 315871, 124871, 202927, 169751, 316511
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
LINKS
|
|
|
MATHEMATICA
|
Join[{33, 77, 3131}, FromDigits[Flatten[Join[{Take[IntegerDigits[#], 3], Take[ IntegerDigits[ #], -3]}]]]&/@ (2^MersennePrimeExponent[Range[4, 40]]-1)] (* Harvey P. Dale, Dec 30 2023 *)
|
|
CROSSREFS
|
|
|
KEYWORD
|
base,nonn
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|