A266538 Twice the partial sums of A006257 (Josephus problem).
0, 2, 4, 10, 12, 18, 28, 42, 44, 50, 60, 74, 92, 114, 140, 170, 172, 178, 188, 202, 220, 242, 268, 298, 332, 370, 412, 458, 508, 562, 620, 682, 684, 690, 700, 714, 732, 754, 780, 810, 844, 882, 924, 970, 1020, 1074, 1132, 1194, 1260, 1330, 1404, 1482, 1564, 1650, 1740, 1834, 1932, 2034, 2140, 2250, 2364, 2482, 2604
Offset: 0
Programs
-
Mathematica
2*Accumulate[Flatten[{0, Table[Range[1, 2^n - 1, 2], {n, 0, 7}]}]] (* Jake L Lande, Aug 05 2024 *)
Formula
a(n) = 2 * A256249(n).