login
A063907
Lesser of twin numbers (differing by 1) of the form F(i)^2 + F(j)^3 (A045704), where F() are Fibonacci numbers.
0
0, 1, 4, 8, 9, 25, 26, 27, 64, 125, 169, 441, 512, 1156, 2197, 3025, 7921, 9261, 20736, 39304, 54289, 142129, 166375, 372100, 704969, 974169, 2550409, 2985984, 6677056, 12649337, 17480761, 45765225, 53582633, 119814916, 226981000
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
Cf. A000045 and A045704.
Sequence in context: A173743 A035326 A180865 * A261987 A158340 A350014
KEYWORD
nonn
AUTHOR
Robert G. Wilson v, Aug 28 2001
STATUS
approved