OFFSET
0,2
LINKS
Daniel Suteu, Table of n, a(n) for n = 0..500
EXAMPLE
For n=3, a(3) = floor(69.52294621467075235981513247145953...) = 69.
MATHEMATICA
Table[Floor@ Product[1 + n/k!, {k, 0, 10^2}], {n, 0, 38}] (* Michael De Vlieger, Mar 27 2016 *)
PROG
(Sidef)
func a(n) {
var (prod=1, prev=1)
for i in (0 ..^ Inf) {
prod *= (1 + n/i!)
break if (prod/prev <= 1+1e-100)
prev = prod
}
return floor(prod)
}
range(0, 100).each { |n| say a(n) }
(PARI) a(n) = floor(prodinf(k=0, 1+n/k!)); \\ Michel Marcus, Mar 04 2016
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Daniel Suteu, Mar 03 2016
STATUS
approved