A063907 Lesser of twin numbers (differing by 1) of the form F(i)^2 + F(j)^3 (A045704), where F() are Fibonacci numbers.

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

Links

Table of n, a(n) for n=0..34.

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

Adjacent sequences: A063904 A063905 A063906 * A063908 A063909 A063910

Keyword

nonn

Author

Robert G. Wilson v, Aug 28 2001

Status

approved