A097489 - OEIS

%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