|
|
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
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
0,3
|
|
LINKS
|
|
|
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
|
|
|
STATUS
|
approved
|
|
|
|