OFFSET
1,1
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..279
MATHEMATICA
FoldList[Times, Select[Partition[Prime[Range[50]], 2, 1], #[[2]]-#[[1]]==2&][[All, 1]]] (* Harvey P. Dale, Oct 09 2020 *)
PROG
(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
f(n) = p=1; for(x=1, n, p*=twinl(x); print1(p", "))
CROSSREFS
KEYWORD
nonn
AUTHOR
Cino Hilliard, Aug 24 2004
EXTENSIONS
Edited by Don Reble, Apr 16 2007
a(15)-a(16) from Amiram Eldar, Jul 07 2024
STATUS
approved