OFFSET
1,1
LINKS
Vincenzo Librandi, Table of n, a(n) for n = 1..1000
EXAMPLE
k=30 is a term because 30*prime(30) +- 1 = 3390 +- 1 are twin primes.
MATHEMATICA
Select[Range[15000], PrimeQ[ # Prime[ # ] - 1] && PrimeQ[ # Prime[ # ] + 1] &]
PROG
(Magma) [n: n in [1..11500] | IsPrime(n*NthPrime(n) - 1) and IsPrime(n*NthPrime(n) + 1) ]; // Vincenzo Librandi, Oct 05 2012
CROSSREFS
KEYWORD
easy,nonn
AUTHOR
Zak Seidov, Jul 11 2003
STATUS
approved