A269667 - OEIS

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

(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.