login
A352359
Indices of local minima in A109812.
10
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,2
COMMENTS
These are the indices (in A109812) of numbers that are the slowest to appear in A109812.
Records in A113233.
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]]
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Michael De Vlieger, Mar 29 2022
EXTENSIONS
Edited by N. J. A. Sloane, Apr 26 2022
STATUS
approved