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