A331824 Starts of runs of 4 consecutive positive negabinary-Niven numbers (A331728).

1, 1264, 2104, 2944, 4624, 11888, 23768, 27312, 27728, 31688, 35648, 49144, 51488, 55448, 56704, 58384, 60072, 63424, 65104, 66784, 70144, 71288, 75248, 76452, 79208, 81904, 87128, 91088, 92832, 99008, 102968, 114848, 118808, 123904, 125592, 126728, 130624, 131044

Offset: 1

Author

Amiram Eldar, Jan 27 2020

Keywords

• nonn
• base

Links

• Amiram Eldar, Table of n, a(n) for n = 1..10000

Crossrefs

Cf. A027615, A039724, A141769, A328211, A328215, A330933, A331728.

Programs

Mathematica

negaBinWt[n_] := negaBinWt[n] = If[n == 0, 0, negaBinWt[Quotient[n - 1, -2]] + Mod[n, 2]]; negaBinNivenQ[n_] := Divisible[n, negaBinWt[n]]; nConsec = 4; neg = negaBinNivenQ /@ Range[nConsec]; seq = {}; c = 0; k = nConsec+1; While[c < 45, If[And @@ neg, c++; AppendTo[seq, k - nConsec]]; neg = Join[Rest[neg], {negaBinNivenQ[k]}]; k++]; seq