OFFSET
1,3
MATHEMATICA
Select[(MersennePrimeExponent[Range[48]] - 7) / 24, IntegerQ] (* Amiram Eldar, Oct 17 2024 *)
CROSSREFS
KEYWORD
nonn,more
AUTHOR
Artur Jasinski, Apr 22 2008
STATUS
approved