A357370 Positions of 0's in A355917.

1, 3, 7, 13, 21, 33, 47, 64, 82, 102, 125, 149, 176, 204, 234, 267, 302, 339, 378, 419, 462, 507, 554, 603, 654, 707, 763, 820, 880, 943, 1008, 1075, 1143, 1215, 1288, 1362, 1437, 1513, 1592, 1674, 1757, 1842, 1928, 2017, 2107, 2199, 2293, 2389, 2487, 2587, 2690

Offset

1,2

Comments

A355916(2*a(n)-1) = 0.

Links

Michael De Vlieger, Table of n, a(n) for n = 1..10000

Mathematica

nn = 51; c[_] = 0; i = 1; Reap[Do[k = 0; While[c[k] > 0, Set[m, c[k]]; c[m]++; c[k]++; i += 2; k++]; Set[m, c[k]]; c[m]++; c[k]++; Sow[(i + 1)/2]; i += 2, {n, nn}] ][[-1, -1]]

Prog

(Python)
from itertools import count, islice
from collections import Counter
def agen():
    yield 1
    num, alst, inventory = 0, [0, 0], Counter([0, 0])
    for n in count(2):
        c = [inventory[num], num]
        num = 0 if c[0] == 0 else num + 1
        if c[0] == 0: yield n
        inventory.update(c)
print(list(islice(agen(), 51))) # Michael S. Branicky, Oct 05 2022

Crossrefs

Cf. A355916, A355917, A357371.

Sequence in context: A147409 A147342 A172310 * A060939 A373051 A174030

Adjacent sequences: A357367 A357368 A357369 * A357371 A357372 A357373

Keyword

nonn

Author

Michael De Vlieger, Sep 25 2022

Status

approved