A107258 Numbers not representable as Fibonacci(i) + triangular(j), i,j>=0.
25, 32, 43, 51, 52, 54, 59, 64, 72, 73, 75, 77, 82, 84, 85, 88, 97, 98, 101, 102, 103, 109, 111, 114, 115, 116, 119, 124, 127, 129, 130, 131, 132, 135, 140, 142, 143, 148, 151, 152, 162, 163, 164, 168, 169, 177, 178, 181, 182, 183, 185, 186, 188, 196, 197
Offset: 1
Keywords
Programs
-
Mathematica
With[{nn=200},Select[Complement[Range[nn],Union[Flatten[Outer[Plus, Join[{0},Fibonacci[Range[12]]],Accumulate[Range[19]]]]]],#
Harvey P. Dale, Jul 15 2012 *)
Comments