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
Links
- Robert Israel, Table of n, a(n) for n = 1..10000
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 *)
Comments