OFFSET
1,1
COMMENTS
Positive numbers k such that both k and k + 1 are in A331827.
Numbers of the form 2^(2*k+1) and 2^(2*k) - 1 are terms.
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]]; negBinQ[n_] := And @@ (Divisible[n, negaBinWt[#]] & /@ {-n, n}); nConsec = 2; neg = negBinQ /@ Range[nConsec]; seq = {}; c = 0; k = nConsec + 1; While[c < 45, If[And @@ neg, c++; AppendTo[seq, k - nConsec]]; neg = Join[Rest[neg], {negBinQ[k]}]; k++]; seq
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Amiram Eldar, Jan 28 2020
STATUS
approved