|
|
A109302
|
|
Values of k such that prime(k)!+prime(k+1) is prime.
|
|
1
|
|
|
|
OFFSET
|
1,2
|
|
COMMENTS
|
The primes of the form prime(n)!+prime(n+1) are in A094108.
|
|
LINKS
|
|
|
EXAMPLE
|
4 is in the sequence because prime(4)=7, prime(5)=11 and 7!+11=5051 is prime.
|
|
MAPLE
|
a:=proc(n) if isprime(ithprime(n)!+ithprime(n+1))=true then n else fi end: seq(a(n), n=1..50);
|
|
MATHEMATICA
|
Select[Range[100], PrimeQ[Prime[#]!+Prime[#+1]]&] (* Harvey P. Dale, Jun 21 2021 *)
|
|
PROG
|
(PARI) isok(n) = isprime(prime(n)!+prime(n+1)); \\ Michel Marcus, Aug 20 2019
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,more
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|