|
%I #8 Oct 02 2013 15:12:51
%S 1,1,1,2,444
%N Smallest positive integer k such that k^k + F(n) is prime, where F(n) is the n-th Fibonacci number.
%C Next term is not known. Sequence continues: 1, 1, 1, 2, 444, ?, 2, 4, 3, 2, ?, ?, 6, ?, 1059, 2, 2, ?, ?, 14, 3, 66, 2, ?, 2, 46, 15, 8, 78, 273, 2, 2. All unknown terms are >= 2000. All known terms except a(15) = 1059 correspond to certified primes.
%C a(6) = A087037(8) > 30300.
%F a(n) = A087037(A000045(n)).
%t Do[k = 1; While[ !PrimeQ[k^k + Fibonacci[n]], k++ ]; Print[k], {n, 32}]
%K hard,more,nonn
%O 1,4
%A _Ryan Propper_, May 20 2006
|
