A094108 - OEIS

%I #12 Aug 20 2019 02:16:13

%S 5,11,127,5051,

%T 4470115461512684340891257138125051110076800700282905015819080092370422104067183317016903680000000000000079

%N Primes of form prime(n)!+prime(n+1).

%C The next term is too large to include: it is 1,100 digits long and is generated when n=93.

%p a:=proc(n) if isprime(ithprime(n)!+ithprime(n+1))=true then ithprime(n)!+ithprime(n+1) else fi end: seq(a(n),n=1..45); # _Emeric Deutsch_, Jun 24 2005

%t Select[#[[1]]!+#[[2]]&/@Partition[Prime[Range[30]],2,1],PrimeQ] (* _Harvey P. Dale_, Jul 03 2013 *)

%Y Values of n for which prime(n)!+prime(n+1) is prime are in A109302.

%K nonn

%O 1,1

%A _Giovanni Teofilatto_, May 03 2004

%E More terms from _Emeric Deutsch_, Jun 24 2005

%E Comment extended by _Harvey P. Dale_, Jul 03 2013