A092761 - OEIS

%I #13 Oct 12 2015 17:46:14

%S 2,11,31,73,139,433,1759,2017,5179,6553,8629,10399,14347,16633,20707,

%T 39199,53353,131749,159193,186619,216217,250993,471949,509767,608347,

%U 736159,777919,938953,1022113,1065019,1238749,1327099,1476217,1640953

%N Primes of the form prime(n)*prime(n+1) - 4.

%H Harvey P. Dale, <a href="/A092761/b092761.txt">Table of n, a(n) for n = 1..1000</a>

%t 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 *)

%t Select[Times@@@Partition[Prime[Range[250]],2,1]-4,PrimeQ] (* _Harvey P. Dale_, Oct 12 2015 *)

%K nonn,easy

%O 1,1

%A _Giovanni Teofilatto_, Apr 13 2004

%E Corrected and extended by Pab Ter (pabrlos(AT)yahoo.com), May 24 2004