OFFSET
1,1
LINKS
Vincenzo Librandi, Table of n, a(n) for n = 1..1000
EXAMPLE
k=25: (prime(25-1)+1)*(prime(25+1)-1)=(89+1)*(101-1)=9000, as 9000+1=A000040(1118), 9001 is a term.
MATHEMATICA
Select[Table[(Prime[n-1]+1)*(Prime[n+1]-1)+1, {n, 0, 1000}], PrimeQ] (* Vincenzo Librandi, Jul 15 2012 *)
PROG
(Magma) [p: n in [2..200] | IsPrime(p) where p is (NthPrime(n-1)+1)*(NthPrime(n+1)-1)+1]; // Vincenzo Librandi, Jul 16 2012
CROSSREFS
KEYWORD
nonn
AUTHOR
Reinhard Zumkeller, Aug 10 2003
STATUS
approved