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