OFFSET
1,1
LINKS
Robert Israel, Table of n, a(n) for n = 1..10000
MAPLE
Primes:= [seq(ithprime(i), i=1..1000)]:
Primes[select(t -> isprime(Primes[t]*Primes[t+1]-4), [$1..999])]; # Robert Israel, Jan 10 2019
MATHEMATICA
Transpose[Select[Partition[Prime[Range[500]], 2, 1], PrimeQ[Times@@#- 4]&]] [[1]] (* Harvey P. Dale, Jan 22 2012 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Giovanni Teofilatto, Apr 12 2004
EXTENSIONS
Corrected and extended by Harvey P. Dale, Jan 22 2012
Name edited by Robert Israel, Jan 10 2019
STATUS
approved