|
%I #6 Jan 06 2013 20:40:12
%S 0,1,2,3,4,5,7,10,11,13,15,18,19,21,25,29,32,33,35,40,47,51,54,55,57,
%T 65,76,83,87,90,91,93,105,123,134,141,145,148,149,151,170,199,217,228,
%U 235,239,242,243,245,275,322,351,369,380,387,391,394,395,397
%N Ordered sequence of nonnegative differences 2*f-g, where f and g are Lucas numbers (A000032 beginning at 1).
%t (See A191916.)
%t nn=60;Join[{0},Take[Union[Select[2#[[1]]-#[[2]]&/@Tuples[LucasL[ Range[ nn]], 2],#>=0&]],nn]] (* _Harvey P. Dale_, Jan 06 2013 *)
%K nonn
%O 1,3
%A _Clark Kimberling_, Jun 19 2011
|
