This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A364007 #7 Jul 01 2023 09:19:09
%S A364007 3,6,7,20,39,51,54,55,90,135,143,294,305,321,356,365,369,374,375,376,
%T A364007 784,800,924,978,979,980,986,1904,1945,1970,2043,2199,2232,2289,2394,
%U A364007 2424,2439,2499,2525,2562,2580,2583,4185,4598,4707,4774,4790,4796,4879,5004
%N A364007 Numbers k such that k and k+1 are both Wythoff-Niven numbers (A364006).
%C A364007 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.
%H A364007 Amiram Eldar, <a href="/A364007/b364007.txt">Table of n, a(n) for n = 1..10000</a>
%t A364007 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 *)
%Y A364007 Cf. A035508, A135818.
%Y A364007 Subsequence of A364006.
%Y A364007 Subsequences: A364008, A364009.
%Y A364007 Similar sequences: A330927, A328205, A328209, A328213, A330931, A331086, A333427, A334309, A331820, A342427, A344342, A351715, A351720, A352090, A352108, A352321, A352509.
%K A364007 nonn,base
%O A364007 1,1
%A A364007 _Amiram Eldar_, Jul 01 2023