|
%I #5 Jul 15 2012 07:07:51
%S 25,32,43,51,52,54,59,64,72,73,75,77,82,84,85,88,97,98,101,102,103,
%T 109,111,114,115,116,119,124,127,129,130,131,132,135,140,142,143,148,
%U 151,152,162,163,164,168,169,177,178,181,182,183,185,186,188,196,197
%N Numbers not representable as Fibonacci(i) + triangular(j), i,j>=0.
%C A107259(a(n)) = 0.
%t With[{nn=200},Select[Complement[Range[nn],Union[Flatten[Outer[Plus, Join[{0},Fibonacci[Range[12]]],Accumulate[Range[19]]]]]],#<nn&]] (* _Harvey P. Dale_, Jul 15 2012 *)
%K nonn
%O 1,1
%A _Ralf Stephan_, May 15 2005
|
