OFFSET
1,2
FORMULA
EXAMPLE
MATHEMATICA
f[n_] := Fold[ #2 * Ceiling[ #1/#2 + 2] &, n, Reverse @ Range[n - 1]]; Array[ f, 49] Bobby R. Treat (drbob(at)bigfoot.com), Oct 11 2005
PROG
(PARI) a(n)=local(A=n, D); for(i=1, n-1, D=n-i; A=D*ceil(A/D+2)); A
CROSSREFS
KEYWORD
nonn
AUTHOR
Paul D. Hanna, Oct 10 2005
STATUS
approved