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

Links

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

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

Crossrefs

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

Sequence in context: A252507 A252506 A205762 * A234676 A237327 A233887

Adjacent sequences: A331821 A331822 A331823 * A331825 A331826 A331827

Keyword

nonn,base

Author

Amiram Eldar, Jan 27 2020

Status

approved