|
|
A091463
|
|
a(n) is the smallest j such that 1/1 + 1/4 + 1/7 + ... + 1/j exceeds n.
|
|
4
|
|
|
|
OFFSET
|
1,1
|
|
LINKS
|
|
|
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
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|