|
|
A053408
|
|
Numbers n such that A003266(n) + 1 is prime.
|
|
7
|
|
|
|
OFFSET
|
1,2
|
|
COMMENTS
|
|
|
LINKS
|
|
|
MATHEMATICA
|
Select[Range[30], PrimeQ[Fibonorial[#] + 1] &] (* Robert Price, May 26 2019 *)
|
|
PROG
|
(PARI) ff(n)=prod(i=1, n, fibonacci(i));
for(n=1, 10^6, if(ispseudoprime(ff(n)+1), print1(n, ", "))); \\ Joerg Arndt, Aug 16 2014
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,more
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|