|
|
A270173
|
|
Smallest number k such that A270172(k) = n.
|
|
2
|
|
|
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
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
0,2
|
|
LINKS
|
|
|
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) = my(k=0); while(a270172(k)!=n, k++); k
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,base
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|