OFFSET
1,1
COMMENTS
A cubic version of the Weintraub recursion.
LINKS
Steven H. Weintraub, An Interesting Recursion, Amer. Math. Monthly, v 111, no. 6, 2004, page 528.
MATHEMATICA
digits=200
a[n_Integer?Positive] := a[n] = a[n-1] + 3*(a[n-1] - Floor[a[n-1]^(1/3)]^3)
a[1] = 2
a0=Table[a[n], {n, 1, digits}]
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Roger L. Bagula, Jun 20 2004
EXTENSIONS
Name edited by Michel Marcus, Jun 03 2019
STATUS
approved