%I #7 Jul 15 2015 17:38:10
%S 0,1,2,3,4,6,7,10,11,17,18,28,29,46,47,75,76,122,123,198,199,321,322,
%T 520,521,842,843,1363,1364,2206,2207,3570,3571,5777,5778,9348,9349,
%U 15126,15127,24475,24476,39602,39603,64078,64079,103681,103682,167760,167761
%N List of numbers L - 1 and L, where L = A000032, the Lucas numbers, sorted into increasing order and duplicates removed.
%H Clark Kimberling, <a href="/A259625/b259625.txt">Table of n, a(n) for n = 1..2000</a>
%F G.f.: -((x (-1 - 2 x - x^2 + x^5 + x^6 + x^7))/((-1 + x) (1 + x) (-1 + x^2 + x^4)))
%t Union[#, # - 1] &[LucasL[Range[50]]]
%Y Cf. A000032, A258085, A259623, A259624, A259626, A259627.
%K nonn,easy
%O 1,3
%A _Clark Kimberling_ and _Peter J. C. Moses_, Jul 01 2015
|