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
Keywords
Programs
-
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
Extensions
More terms from R. J. Mathar, Mar 05 2008
Comments