A097489 a(n) = product of first n terms of A001359.

3, 15, 165, 2805, 81345, 3335145, 196773555, 13970922405, 1411063162905, 150983758430835, 20684774905024395, 3082031460848634855, 551683631491905639045, 105371573614953977057595, 20758200002145933480346215, 4712111400487126900038590805

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

Cf. A001359, A097492.

Sequence in context: A105611 A329557 A108975 * A080696 A015013 A269694

Adjacent sequences: A097486 A097487 A097488 * A097490 A097491 A097492

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