OFFSET
0,3
MAPLE
A091137 := proc(n) local a, p ; a := 1 ; p := 2 ; while floor(n/(p-1)) > 0 do a := a*p^floor(n/(p-1)) ; p := nextprime(p) ; od: RETURN(a) ; end:
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Paul Curtz, Mar 02 2009
EXTENSIONS
Extended by R. J. Mathar, Apr 10 2009
STATUS
approved