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.

1, 6, 105, 1728, 85085, 725760, 215656441, 522547200, 27433728000, 1609445376000, 2928046583754721, 2824576634880000, 50774191064678342417, 6327051662131200000, 507067997493657600000, 42593711789467238400000

Offset

1,2

Comments

Contains A075068 as a subsequence. - R. J. Mathar, Mar 05 2008

Links

Table of n, a(n) for n=1..16.

Maple

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

Crossrefs

Sequence in context: A279520 A309378 A221933 * A227207 A126467 A013294

Adjacent sequences: A110339 A110340 A110341 * A110343 A110344 A110345

Keyword

nonn

Author

Amarnath Murthy, Jul 20 2005

Extensions

More terms from R. J. Mathar, Mar 05 2008

Status

approved