A352359 Indices of local minima in A109812.

1, 2, 4, 6, 9, 16, 20, 26, 28, 30, 39, 41, 44, 51, 54, 76, 80, 85, 104, 109, 112, 162, 165, 175, 179, 197, 240, 294, 308, 323, 418, 423, 434, 481, 490, 500, 510, 536, 547, 632, 634, 647, 650, 699, 767, 782, 805, 883, 891, 914, 952, 996, 1009, 1226, 1269, 1271, 1314, 1316, 1322, 1325, 1477, 1483, 1892, 1901, 2419, 2588, 2685, 2803, 2936, 2988, 3555, 3570, 3833

Offset: 1

Author

Michael De Vlieger, Mar 29 2022

Keywords

• nonn
• base

Comments

These are the indices (in A109812) of numbers that are the slowest to appear in A109812.

Records in A113233.

Links

• David Broadhurst, Table of n, a(n) for n = 1..221
• David Broadhurst, Table of n, A352336(n), A352359(n) for n = 1..221

Crossrefs

Cf. A109812, A113233, A352204, A352336.

Programs

Mathematica

c[_] = 0; a[1] = c[1] = 1; u = 2; {1}~Join~Reap[Do[k = u; While[Nand[c[k] == 0, BitAnd[a[i - 1], k] == 0], k++]; If[a[i - 1] == u, Sow[i - 1]; While[c[u] > 0, u++]]; Set[{a[i], c[k]}, {k, i}], {i, 2, 1300}]][[-1, -1]]

Extensions

Edited by N. J. A. Sloane, Apr 26 2022