A064738 Numbers k such that k! + Fibonacci(k) is prime.

1, 2, 62, 71, 227, 778, 809, 1753

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