|
%I #6 Nov 11 2020 12:25:27
%S 13,33,141,321,897,1761,3597,5181,10401,11661,19041,22497,32397,36861,
%T 39201,51981,57597,72897,79521,97341,121101,176397,186621,213441,
%U 272481,324897,359997,381921,412161,435597,656097,675681,685581,736161,777921
%N Twin prime products minus 2.
%H Harvey P. Dale, <a href="/A124659/b124659.txt">Table of n, a(n) for n = 1..1000</a>
%t Times@@#-2&/@Select[Partition[Prime[Range[200]],2,1],#[[2]]-#[[1]]==2&] (* _Harvey P. Dale_, Nov 11 2020 *)
%o (PARI) g(n) = forprime(x=1,n,if(isprime(x+2),y=x*(x+2)-2;print1(y",")))
%K easy,nonn
%O 1,1
%A _Cino Hilliard_, Dec 27 2006
|
