A270173 Smallest number k such that A270172(k) = n.

0, 90, 80, 70, 60, 50, 40, 30, 20, 10, 100, 190, 180, 170, 160, 150, 140, 130, 120, 1010, 1200, 1290, 1280, 1270, 1260, 1250, 1240, 1230, 10120, 12010, 12300, 12390, 12380, 12370, 12360, 12350, 12340, 101230, 120120, 123010, 123400, 123490, 123480, 123470

Offset: 0

Author

Felix Fröhlich, Mar 12 2016

Keywords

• nonn
• base

Crossrefs

Cf. A269667, A270172.

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) = my(k=0); while(a270172(k)!=n, k++); k