OFFSET
1,1
FORMULA
The next term is approximately the previous term * e^3.
MATHEMATICA
s = 0; k = 1; Do[ While[s = N[s + 1/k, 24]; s <= n, k += 3]; Print[k]; k += 3, {n, 1, 7}]
CROSSREFS
KEYWORD
nonn,more
AUTHOR
Robert G. Wilson v, Jan 12 2004
EXTENSIONS
Name edited by Jon E. Schoenfield, Dec 20 2019
a(8)-a(9) from Hugo Pfoertner, Dec 27 2019
STATUS
approved