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
Keywords
Programs
-
Mathematica
Rest[FoldList[Times,1,Transpose[Select[Partition[Prime[Range[100]],2,1], Last[#]- First[#] == 2&]][[2]]]] (* Harvey P. Dale, Nov 02 2011 *)
-
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
Extensions
Edited by Don Reble, Apr 16 2007