login

Reminder: The OEIS is hiring a new managing editor, and the application deadline is January 26.

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

%I #2 Mar 30 2012 17:30:33

%S 0,1,4,8,9,25,26,27,64,125,169,441,512,1156,2197,3025,7921,9261,20736,

%T 39304,54289,142129,166375,372100,704969,974169,2550409,2985984,

%U 6677056,12649337,17480761,45765225,53582633,119814916,226981000

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

%t 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} ]

%Y Cf. A000045 and A045704.

%K nonn

%O 0,3

%A _Robert G. Wilson v_, Aug 28 2001