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 A110342 #6 Aug 08 2015 22:25:53 %S A110342 1,6,105,1728,85085,725760,215656441,522547200,27433728000, %T A110342 1609445376000,2928046583754721,2824576634880000,50774191064678342417, %U A110342 6327051662131200000,507067997493657600000,42593711789467238400000 %N A110342 a(1) = 1; a(n) = product of n successive primes beginning with n if n is prime else product of n successive composite numbers beginning with n. %C A110342 Contains A075068 as a subsequence. - _R. J. Mathar_, Mar 05 2008 %p A110342 nextNonprime := proc(n) local a; for a from n+1 do if not isprime(a) then RETURN(a) ; fi ; od: end: A110342 := proc(n) local res,cnt,nfac; res := n ; if isprime(n) then nfac := nextprime(n) ; for cnt from 2 to n do res := res*nfac ; nfac := nextprime(nfac) ; od: else nfac := nextNonprime(n) ; for cnt from 2 to n do res := res*nfac ; nfac := nextNonprime(nfac) ; od: fi; RETURN(res) ; end: seq(A110342(n),n=1..30) ; # _R. J. Mathar_, Mar 05 2008 %K A110342 nonn %O A110342 1,2 %A A110342 _Amarnath Murthy_, Jul 20 2005 %E A110342 More terms from _R. J. Mathar_, Mar 05 2008