login
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
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
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
KEYWORD
nonn
AUTHOR
Amarnath Murthy, Jul 20 2005
EXTENSIONS
More terms from R. J. Mathar, Mar 05 2008
STATUS
approved