OFFSET
0,2
COMMENTS
The next term is too large to include.
LINKS
Eric Weisstein's World of Mathematics, Additive Persistence
EXAMPLE
0 has additive persistence 0.
11 -> 2 has additive persistence 1.
55 -> 10 -> 1 has additive persistence 2.
MATHEMATICA
lst = {0, 11, 55}; Do[AppendTo[lst, 6*10^(((lst[[-1]] + 5)/3 - 2)/9) - 5], {2}]; lst
CROSSREFS
KEYWORD
base,nice,nonn
AUTHOR
Arkadiusz Wesolowski, Oct 17 2012
STATUS
approved