|
| |
|
|
A097492
|
|
a(n) = product of first n terms of A006512.
|
|
2
| |
|
|
5, 35, 455, 8645, 267995, 11523785, 702950885, 51315414605, 5285487704315, 576118159770335, 80080424208076565, 12092144055419561315, 2188678074030940598015, 422414868287971535416895
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 1,1
|
|
|
MATHEMATICA
| Rest[FoldList[Times, 1, Transpose[Select[Partition[Prime[Range[100]], 2, 1], Last[#]- First[#] == 2&]][[2]]]] (* From 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: A125864 A204290 A059865 * A125802 A034217 A011556
Adjacent sequences: A097489 A097490 A097491 * A097493 A097494 A097495
|
|
|
KEYWORD
| nonn
|
|
|
AUTHOR
| Cino Hilliard (hillcino368(AT)gmail.com), Aug 24 2004
|
|
|
EXTENSIONS
| Edited by Don Reble (djr(AT)nk.ca), Apr 16 2007
|
| |
|
|
