OFFSET
1,1
COMMENTS
Primes in A136005.
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..13
FORMULA
a(n) = 2^A152961(n) - 1. - Amiram Eldar, Oct 20 2024
MATHEMATICA
q[n_] := n == 2 || Module[{d = Divisors[(n+1)/2]}, AllTrue[Range[3, Length[d]], d[[#]] >= 2 * d[[#-1]] &]]; 2^Select[MersennePrimeExponent[Range[13]], q] - 1 (* Amiram Eldar, Oct 20 2024 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Omar E. Pol, Dec 17 2007
EXTENSIONS
Extended by Ray Chandler, Dec 13 2008
STATUS
approved