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
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