%I #17 Jul 07 2024 03:19:10
%S 3,15,165,2805,81345,3335145,196773555,13970922405,1411063162905,
%T 150983758430835,20684774905024395,3082031460848634855,
%U 551683631491905639045,105371573614953977057595,20758200002145933480346215,4712111400487126900038590805
%N a(n) = product of first n terms of A001359.
%H Amiram Eldar, <a href="/A097489/b097489.txt">Table of n, a(n) for n = 1..279</a>
%t FoldList[Times,Select[Partition[Prime[Range[50]],2,1],#[[2]]-#[[1]]==2&][[All,1]]] (* _Harvey P. Dale_, Oct 09 2020 *)
%o (PARI) twinl(n) = { local(c,x); c=0; x=1; while(c<n, if(isprime(prime(x)+2),c++); x++; ); return(prime(x-1)) } \\ The n-th lower twin prime
%o f(n) = p=1; for(x=1,n,p*=twinl(x);print1(p","))
%Y Cf. A001359, A097492.
%K nonn
%O 1,1
%A _Cino Hilliard_, Aug 24 2004
%E Edited by _Don Reble_, Apr 16 2007
%E a(15)-a(16) from _Amiram Eldar_, Jul 07 2024
|