A269667 a(n) = A270172(10*n).

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

Offset: 0

Author

Felix Fröhlich, Mar 13 2016

Keywords

• nonn
• base

Links

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

Crossrefs

Cf. A270172, A270173.

Programs

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)