



0, 9, 8, 7, 6, 5, 4, 3, 2, 1, 10, 9, 18, 17, 16, 15, 14, 13, 12, 11, 10, 9, 8, 17, 16, 15, 14, 13, 12, 11, 10, 9, 8, 7, 16, 15, 14, 13, 12, 11, 10, 9, 8, 7, 6, 15, 14, 13, 12, 11, 10, 9, 8, 7, 6, 5, 14, 13, 12, 11, 10, 9, 8, 7, 6, 5, 4, 13, 12, 11, 10, 9, 8, 7
(list;
graph;
refs;
listen;
history;
text;
internal format)



OFFSET

0,2


LINKS

Felix Fröhlich, Table of n, a(n) for n = 0..10000


PROG

(PARI) eva(n) = subst(Pol(n), x, 10)
increasedigits(n) = my(d=digits(n)); for(k=1, #d, d[k]++; if(d[k]==10, d[k]=0)); eva(d)
a270172(n) = my(x=n, i=0); while(#Str(x) > 1, x=increasedigits(x); i++); i
a(n) = a270172(10*n)


CROSSREFS

Cf. A270172, A270173.
Sequence in context: A304621 A138531 A030076 * A171816 A083824 A087029
Adjacent sequences: A269664 A269665 A269666 * A269668 A269669 A269670


KEYWORD

nonn,base


AUTHOR

Felix Fröhlich, Mar 13 2016


STATUS

approved



