OFFSET
1,1
EXAMPLE
a(4) is 138191(prime number) where 13 is 5th Mersenne exponent and 8191 is 5th Mersenne prime.
MATHEMATICA
Select[Table[With[{m=MersennePrimeExponent[n]}, {c=2^m-1}, m*10^IntegerLength[c]+c], {n, 20}], PrimeQ] (* Harvey P. Dale, Feb 07 2026 *)
CROSSREFS
KEYWORD
nonn,base,less
AUTHOR
Juri-Stepan Gerasimov, Dec 08 2013
STATUS
approved
