|
%I #8 Jun 22 2019 15:30:50
%S 2,2,2,5,10,20,37,64,110,185,307,505,826,1345,2187,3550,5756,9326,
%T 15103,24451,39577,64052,103654,167731,271412,439172,710614,1149817,
%U 1860463,3010313,4870810,7881158
%N (n-th Lucas number that is not 1) - (n-th number that is 1 or not a Lucas number).
%H G. C. Greubel, <a href="/A014244/b014244.txt">Table of n, a(n) for n = 1..1000</a>
%t b:= Complement[Range[1, 200], LucasL[Range[20]]]; Join[{2}, Table[LucasL[n+2] - b[[n]], {n, 1, 39}]] (* _G. C. Greubel_, Jun 22 2019 *)
%K nonn
%O 1,1
%A _Clark Kimberling_
%E Corrected by _T. D. Noe_, Oct 31 2006
|
