A045646 Alternative version of A006050.
1, 10, 19, 199, 19999999999999999999999
Offset: 0
References
- H. J. Hindin, The additive persistence of a number, J. Rec. Math., 7 (No. 2, 1974), 134-135.
Links
- N. J. A. Sloane, The persistence of a number, J. Recreational Math., 6 (1973), 97-98.
Programs
-
Mathematica
Join[{1},NestList[2*10^((#-1)/9)-1&,10,3]] (* Harvey P. Dale, Sep 20 2011 *)
Formula
For n > 1, a(n) = 2*10^((a(n-1)-1)/9) - 1.
Extensions
Next term is 1 followed by 2222222222222222222222 9s.
Comments