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 A111687 #7 Jan 11 2014 18:17:08 %S A111687 8,144,5760,362880,39916800,6227020800,1482030950400,422378820864000, %T A111687 155435406077952000,81137281972690944000,50305114823068385280000, %U A111687 39087074217524135362560000,35256540944206770097029120000 %N A111687 Comprimorial(n): the product of the first n primes and the first n composite numbers. %H A111687 Harvey P. Dale, <a href="/A111687/b111687.txt">Table of n, a(n) for n = 1..215</a> %F A111687 a(n) = A002110(n)*A036691(n) for n>=1. - _Rick L. Shepherd_, Aug 20 2005 %e A111687 a(1) = 2*4 = 8, a(2) = (2*3)*(4*6)=144. %t A111687 Module[{nn=50,prs,coms,len},prs=Select[Range[nn],PrimeQ];coms=Complement[ Range[4,nn],prs];len=Min[Length[prs],Length[coms]];Rest[FoldList[ Times, 1, Times@@@Thread[{Take[prs,len],Take[coms,len]}]]]] (* _Harvey P. Dale_, Jan 11 2014 *) %Y A111687 Cf. A002110 (primorials), A036691 (compositorials). %K A111687 nonn %O A111687 1,1 %A A111687 _Amarnath Murthy_, Aug 17 2005 %E A111687 Corrected and extended by _Rick L. Shepherd_, Aug 20 2005