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

Crossrefs

Cf. A027615, A039724, A154701, A328210, A328214, A330932, A331087, A331090, A331728.

Sequence in context: A058738 A095376 A153332 * A217154 A144657 A362157

Adjacent sequences: A331819 A331820 A331821 * A331823 A331824 A331825

Keyword

nonn,base

Author

Amiram Eldar, Jan 27 2020

Status

approved