|
%I #12 Feb 14 2014 00:21:14
%S 0,1,2,3,4,7,9,11,16,17,18,21,23,29,31,38,39,43,47,53,59,62,74,76,79,
%T 89,97,101,117,123,132,137,147,156,163,191,199,211,226,231,241,253,
%U 264,308,322,343,363,378,383,393,409,427,499,521,554,589,609,624
%N Ordered sequence of nonnegative differences 2f-5g, where f and g are Lucas numbers (A000032 beginning at 1).
%t (See A191988.)
%t Join[{0},Take[Union[Select[2*First[#]-5*Last[#]&/@Tuples[LucasL[ Range[40]],{2}],Positive]],70]] (* _Harvey P. Dale_, Jun 22 2011 *)
%Y Cf. A191988, A191990, A191991.
%K nonn
%O 1,3
%A _Clark Kimberling_, Jun 20 2011
|
