OFFSET
0,3
MATHEMATICA
f = Table[ Fibonacci[i], {i, 0, 100} ]; g = Union[ Flatten[ Table[ f[[i]]^2 + f[[j]]^3, {i, 1, 101}, {j, 1, 101} ]]]; Do[ If[ g[[n + 1]] - g[[n]] == 1, Print[ g[[n]] ]], {n, 1, 410} ]
CROSSREFS
KEYWORD
nonn
AUTHOR
Robert G. Wilson v, Aug 28 2001
STATUS
approved