A099982 Bisection of A000043.
2, 5, 13, 19, 61, 107, 521, 1279, 2281, 4253, 9689, 11213, 21701, 44497, 110503, 216091, 859433, 1398269, 3021377, 13466917, 24036583, 30402457, 37156667, 43112609
Offset: 1
Programs
-
Mathematica
MersennePrimeExponent[Range[1, 48, 2]] (* Amiram Eldar, Oct 16 2024 *)
Formula
a(n) = A000043(2*n-1). - Amiram Eldar, Oct 16 2024
Extensions
Offset corrected and a(20)-a(24) added by Amiram Eldar, Oct 16 2024