OFFSET
1,1
LINKS
Harvey P. Dale, Table of n, a(n) for n = 1..1000
MATHEMATICA
f[n_]:=Prime[n]*Prime[n+1]-4; lst={}; Do[If[PrimeQ[f[n]], AppendTo[lst, f[n]]], {n, 6!}]; lst (* Vladimir Joseph Stephan Orlovsky, Feb 10 2010 *)
Select[Times@@@Partition[Prime[Range[250]], 2, 1]-4, PrimeQ] (* Harvey P. Dale, Oct 12 2015 *)
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Giovanni Teofilatto, Apr 13 2004
EXTENSIONS
Corrected and extended by Pab Ter (pabrlos(AT)yahoo.com), May 24 2004
STATUS
approved