A331822 Starts of runs of 3 consecutive positive negabinary-Niven numbers (A331728).

1, 2, 14, 62, 124, 184, 244, 254, 304, 468, 484, 544, 784, 904, 964, 1022, 1084, 1098, 1144, 1264, 1265, 1308, 1448, 1504, 1518, 1924, 1938, 1984, 2044, 2104, 2105, 2358, 2888, 2944, 2945, 3064, 3198, 3248, 3424, 3544, 3604, 3618, 3664, 3828, 3844, 3904, 3964

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, A154701, A328210, A328214, A330932, A331087, A331090, 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 = 3; neg = negaBinNivenQ /@ Range[nConsec]; seq = {}; c = 0; k = nConsec+1; While[c < 50, If[And @@ neg, c++; AppendTo[seq, k - nConsec]]; neg = Join[Rest[neg], {negaBinNivenQ[k]}]; k++]; seq