login
a(n) = A270172(10*n).
2

%I #15 Mar 14 2016 09:49:03

%S 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,

%T 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,

%U 7,6,5,14,13,12,11,10,9,8,7,6,5,4,13,12,11,10,9,8,7

%N a(n) = A270172(10*n).

%H Felix Fröhlich, <a href="/A269667/b269667.txt">Table of n, a(n) for n = 0..10000</a>

%o (PARI) eva(n) = subst(Pol(n), x, 10)

%o increasedigits(n) = my(d=digits(n)); for(k=1, #d, d[k]++; if(d[k]==10, d[k]=0)); eva(d)

%o a270172(n) = my(x=n, i=0); while(#Str(x) > 1, x=increasedigits(x); i++); i

%o a(n) = a270172(10*n)

%Y Cf. A270172, A270173.

%K nonn,base

%O 0,2

%A _Felix Fröhlich_, Mar 13 2016