login
A364007
Numbers k such that k and k+1 are both Wythoff-Niven numbers (A364006).
4
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
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
KEYWORD
nonn,base
AUTHOR
Amiram Eldar, Jul 01 2023
STATUS
approved