OFFSET
1,2
MATHEMATICA
f[n_] := Fold[ #2*Ceiling[ #1/#2 + 4] &, n, Reverse@Range[n - 1]]; Array[f, 47]
CROSSREFS
KEYWORD
nonn
AUTHOR
Paul D. Hanna and Robert G. Wilson v, Nov 05 2005
STATUS
approved