This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A097492 #9 Oct 19 2017 03:14:36 %S A097492 5,35,455,8645,267995,11523785,702950885,51315414605,5285487704315, %T A097492 576118159770335,80080424208076565,12092144055419561315, %U A097492 2188678074030940598015,422414868287971535416895 %N A097492 a(n) = product of first n terms of A006512. %t A097492 Rest[FoldList[Times,1,Transpose[Select[Partition[Prime[Range[100]],2,1], Last[#]- First[#] == 2&]][[2]]]] (* _Harvey P. Dale_, Nov 02 2011 *) %o A097492 (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)) } %Y A097492 Cf. A006512, A097489. %K A097492 nonn %O A097492 1,1 %A A097492 _Cino Hilliard_, Aug 24 2004 %E A097492 Edited by _Don Reble_, Apr 16 2007