A392236 Positions of zeros in A309983.

1, 8, 9, 18, 19, 150, 151, 152, 153, 164, 165, 194, 195, 286, 287, 300, 301, 306, 307, 330, 331, 336, 337, 390, 391, 392, 393, 2238, 2239, 2268, 2269, 2282, 2283, 2288, 2289, 2364, 2365, 2394, 2395, 2406, 2407, 2408, 2409, 2454, 2455, 2456, 2457, 2468, 2469, 2498, 2499

Offset

1,2

Links

Paolo Xausa, Table of n, a(n) for n = 1..10000

Formula

a(2*k) = 2*A392980(k), for k >= 1.

a(2*k+1) = 2*A392980(k) + 1, for k >= 1.

Mathematica

A392236Q[k_] := Total[#*Range[Length[#], 1, -1]] == 0 & [2*Most[IntegerDigits[k, 2]] - 1];
Select[Range[2500], A392236Q]

Prog

(Python)
from itertools import count, islice
def A392236_gen(): # generator of terms
    yield 1
    for n in count(2):
        if not (m:=n.bit_length()+1)&2 and (sum(i if j == '1' else 0 for i, j in enumerate(bin(n)[:1:-1], 1))<<2)==m*(m-1):
            yield n<<1
            yield (n<<1)|1
A392236_list = list(islice(A392236_gen(), 40)) # Chai Wah Wu, Mar 07 2026

Crossrefs

Cf. A309983, A392980.

Sequence in context: A041551 A356699 A057104 * A359062 A095191 A050706

Adjacent sequences: A392233 A392234 A392235 * A392237 A392238 A392239

Keyword

nonn,base

Author

Paolo Xausa, Mar 01 2026

Status

approved