A364007 Numbers k such that k and k+1 are both Wythoff-Niven numbers (A364006).

3, 6, 7, 20, 39, 51, 54, 55, 90, 135, 143, 294, 305, 321, 356, 365, 369, 374, 375, 376, 784, 800, 924, 978, 979, 980, 986, 1904, 1945, 1970, 2043, 2199, 2232, 2289, 2394, 2424, 2439, 2499, 2525, 2562, 2580, 2583, 4185, 4598, 4707, 4774, 4790, 4796, 4879, 5004

Offset: 1

Author

Amiram Eldar, Jul 01 2023

Keywords

• nonn
• base

Comments

A035508(n) = Fibonacci(2*n+2) - 1 is a term for n >= 2 since A135818(Fibonacci(2*n+2) - 1) = A135818(Fibonacci(2*n+2)) = 1.

Links

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

Crossrefs

Cf. A035508, A135818.

Subsequence of A364006.

Subsequences: A364008, A364009.

Similar sequences: A330927, A328205, A328209, A328213, A330931, A331086, A333427, A334309, A331820, A342427, A344342, A351715, A351720, A352090, A352108, A352321, A352509.

Programs

Mathematica

seq[count_, nConsec_] := Module[{cn = wnQ /@ Range[nConsec], s = {}, c = 0, k = nConsec + 1}, While[c < count, If[And @@ cn, c++; AppendTo[s, k - nConsec]]; cn = Join[Rest[cn], {wnQ[k]}]; k++]; s]; seq[50, 2] (* using the function wnQ[n] from A364006 *)