login
A097489
a(n) = product of first n terms of A001359.
6
3, 15, 165, 2805, 81345, 3335145, 196773555, 13970922405, 1411063162905, 150983758430835, 20684774905024395, 3082031460848634855, 551683631491905639045, 105371573614953977057595, 20758200002145933480346215, 4712111400487126900038590805
OFFSET
1,1
LINKS
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
Sequence in context: A105611 A329557 A108975 * A080696 A015013 A269694
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