A097492 a(n) = product of first n terms of A006512.

5, 35, 455, 8645, 267995, 11523785, 702950885, 51315414605, 5285487704315, 576118159770335, 80080424208076565, 12092144055419561315, 2188678074030940598015, 422414868287971535416895

Offset

1,1

Links

Table of n, a(n) for n=1..14.

Mathematica

Rest[FoldList[Times, 1, Transpose[Select[Partition[Prime[Range[100]], 2, 1], Last[#]- First[#] == 2&]][[2]]]] (* Harvey P. Dale, Nov 02 2011 *)

Prog

(PARI) fu(n) = p=1; for(x=1, n, p*=twinu(x); print1(p", ")) \The n-th upper twin prime twinu(n) = { local(c, x); c=0; x=1; while(c<n, if(isprime(prime(x)+2), c++); x++; ); return(prime(x)) }

Crossrefs

Cf. A006512, A097489.

Sequence in context: A059865 A247596 A325408 * A125802 A034217 A011556

Adjacent sequences: A097489 A097490 A097491 * A097493 A097494 A097495

Keyword

nonn

Author

Cino Hilliard, Aug 24 2004

Extensions

Edited by Don Reble, Apr 16 2007

Status

approved