%I #6 May 18 2013 16:49:24
%S 2,5,17,31,449,521,953,39313,187111,974177,2989009,45804529,53603369,
%T 226981169,540660521,961504807,2149991549,5631736609,17253512729,
%U 18074736353,38580197099,101003831729,1311494070977,101503242568393
%N Primes of the form F(i)^2 + F(j)^3, where F() are Fibonacci numbers.
%F For example, a(2)=17 because 17=2^3+3^2
%t f = Table[ Fibonacci[ i ], {i, 1, 100} ]; g = Union[ Flatten[ Table[ f[ [ i ] ]^2 + f[ [ j ] ]^3, {i, 1, 100}, {j, 1, 100} ] ] ]; Table[ g[ [ Select[ Range[ 1000 ], PrimeQ[ g[ [ # ] ] ] & ] ] ] ]
%Y Cf. A000045.
%K nonn
%O 1,1
%A _Felice Russo_
%E More terms from _Robert G. Wilson v_, Aug 28 2001
|