A353035 a(n) = A119435(2^n).
1, 2, 3, 4, 6, 8, 11, 15, 20, 27, 36, 48, 64, 85, 116, 153, 208, 273, 366, 493, 649, 888, 1161, 1579, 2092, 2784, 3783, 4946, 6772, 8875, 11977, 16065, 21193, 28979, 37823, 51633, 68117, 91045, 123377, 161622, 221441, 289493, 392259, 523328, 692771, 945393
Offset: 0
Links
- Rémy Sigrist, PARI program
Programs
-
Mathematica
a = {1}; nn = 2^14; Do[AppendTo[a, Complement[Range[i + 2 nn], a][[IntegerReverse[i, 2]] ]], {i, 2, nn}]; Array[a[[2^#]] &, Floor@ Log2@ Length@ a - 1, 0]
-
PARI
\\ See Links section.
Extensions
More terms from Rémy Sigrist, Apr 19 2022
Comments