login
Ordered nonnegative differences 4*f-g, where f and g are positive Fibonacci numbers (A000045).
3

%I #6 Oct 15 2014 14:17:29

%S 0,1,2,3,4,5,6,7,9,10,11,12,15,17,18,19,24,27,29,30,31,39,44,47,49,50,

%T 51,63,71,76,79,81,82,83,102,115,123,128,131,133,134,135,165,186,199,

%U 207,212,215,217,218,219,267,301,322,335,343,348,351,353,354

%N Ordered nonnegative differences 4*f-g, where f and g are positive Fibonacci numbers (A000045).

%t (See A191850.)

%t Select[Union[4*First[#]-Last[#]&/@Tuples[Fibonacci[Range[20]],2]],#>=0&] (* _Harvey P. Dale_, Oct 15 2014 *)

%Y Cf. A191850, A191851, A191853.

%K nonn

%O 1,3

%A _Clark Kimberling_, Jun 17 2011