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

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

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 *)

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.

Sequence in context: A113534 A103831 A217519 * A106357 A088101 A050867

Adjacent sequences: A364004 A364005 A364006 * A364008 A364009 A364010

Keyword

nonn,base

Author

Amiram Eldar, Jul 01 2023

Status

approved