|
|
A064738
|
|
Numbers k such that k! + Fibonacci(k) is prime.
|
|
1
|
|
|
|
OFFSET
|
1,2
|
|
COMMENTS
|
The three values 62, 71 and 227 were certified prime with Primo.
|
|
LINKS
|
Table of n, a(n) for n=1..8.
|
|
MATHEMATICA
|
Do[m = n; If[PrimeQ[n! + Fibonacci[n]], Print[n]], {n, 0, 10^3} ]
Do[If[PrimeQ[n! + Fibonacci[n]], Print[n]], {n, 1, 1800}] (* Ryan Propper, Nov 05 2005 *)
|
|
PROG
|
(PARI) for(n=1, 300, if(isprime(n!+fibonacci(n)), print(n)))
|
|
CROSSREFS
|
Cf. A005478, A000142.
Sequence in context: A094478 A273090 A106133 * A067825 A239417 A296361
Adjacent sequences: A064735 A064736 A064737 * A064739 A064740 A064741
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
Jason Earls, Oct 17 2001
|
|
EXTENSIONS
|
More terms from Robert G. Wilson v, Oct 18 2001
1753 from Ryan Propper, Nov 05 2005
|
|
STATUS
|
approved
|
|
|
|