OFFSET
0,3
FORMULA
a(n+1) = a(n)* A141459(n+1).
MAPLE
A091137 := proc(n) local a, i, p ; a := 1 ; for i from 1 do p := ithprime(i) ; if p > n+1 then break; end if; a := a*p^floor(n/(p-1)) ; end do: a ; end proc:
PROG
(PARI) a(n)=my(p=primes(primepi(n+1))); prod(i=1, #p, p[i]^(n\(p[i]-1)))>>n \\ Charles R Greathouse IV, Jul 07 2011
CROSSREFS
KEYWORD
nonn
AUTHOR
Paul Curtz, Sep 23 2009
STATUS
approved