A306740 Numbers k such that A306607(k) = 0.

0, 3, 7, 9, 15, 31, 33, 45, 51, 63, 127, 129, 153, 165, 189, 195, 219, 231, 255, 411, 435, 511, 513, 561, 585, 633, 645, 693, 717, 765, 771, 819, 843, 891, 903, 951, 975, 1023, 2047, 2049, 2145, 2193, 2289, 2313, 2409, 2457, 2553, 2565, 2661, 2709, 2805, 2829, 2925, 2973, 3069, 3075, 3171, 3219

Offset: 1

Author

Robert Israel, Mar 07 2019

Keywords

• nonn
• base
• look

Comments

The first even terms are 0, 68690167808, 68690561024, 68690757632, 68691150848, 68698560512, 68698953728, 68699150336, 68699543552, 68715331584, 68715724800, 68715921408, 68716314624. - Robert Israel, Mar 10 2019

Links

• Robert Israel, Table of n, a(n) for n = 1..10000

Crossrefs

Cf. A306607. Includes A048701.

Programs

Maple

f:= proc(n) local L;
  L:= convert(n, base, 2);
  while nops(L) > 1 do
    L:= L[2..-1]-L[1..-2]
  od;
  op(L)
end proc:
select(f=0, [$0..10000]);

Mathematica

seqQ[n_] := NestWhile[Differences, Reverse[IntegerDigits[n, 2]], Length[#]>1&] == {0}; Select[Range[0, 3000], seqQ] (* Amiram Eldar, Mar 08 2019 *)