



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



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



KEYWORD

nonn,base


AUTHOR



STATUS

approved



