|
%I #7 Jul 01 2023 09:19:09
%S 3,6,7,20,39,51,54,55,90,135,143,294,305,321,356,365,369,374,375,376,
%T 784,800,924,978,979,980,986,1904,1945,1970,2043,2199,2232,2289,2394,
%U 2424,2439,2499,2525,2562,2580,2583,4185,4598,4707,4774,4790,4796,4879,5004
%N Numbers k such that k and k+1 are both Wythoff-Niven numbers (A364006).
%C 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 Amiram Eldar, <a href="/A364007/b364007.txt">Table of n, a(n) for n = 1..10000</a>
%t 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 Cf. A035508, A135818.
%Y Subsequence of A364006.
%Y Subsequences: A364008, A364009.
%Y Similar sequences: A330927, A328205, A328209, A328213, A330931, A331086, A333427, A334309, A331820, A342427, A344342, A351715, A351720, A352090, A352108, A352321, A352509.
%K nonn,base
%O 1,1
%A _Amiram Eldar_, Jul 01 2023
|
