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,2

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

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

Cf. A109812, A113233, A352204, A352336.

Sequence in context: A179997 A101756 A350552 * A372542 A226007 A372632

Adjacent sequences: A352356 A352357 A352358 * A352360 A352361 A352362

Keyword

nonn,base

Author

Michael De Vlieger, Mar 29 2022

Extensions

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

Status

approved