A357361 Smallest number k such that A345112(k) = n.

1, 5, 19, 118, 89, 123, 102, 145, 104, 777, 1133, 1012, 858, 942, 651, 150, 453, 132, 39, 112551, 39782, 23244, 81914, 43810, 40346

Offset

1,2

Links

Table of n, a(n) for n=1..25.

Prog

(PARI) eva(n) = subst(Pol(n), x, 10)
rot(vec) = if(#vec < 2, return(vec)); my(s=concat(Str(2), ".."), v=[]); s=concat(s, Str(#vec)); v=vecextract(vec, s); v=concat(v, vec[1]); v
a345112(n, bound) = my(x=n, i=0); while(1, x=x+eva(rot(digits(x))); i++; if(i > bound, return(-1), if(digits(x)==Vecrev(digits(x)), break))); i
a(n) = if(n==0, return(0)); for(k=1, oo, if(a345112(k, n)==n, return(k)))

Crossrefs

Cf. A345112.

Sequence in context: A206709 A199480 A339079 * A209111 A354863 A328060

Adjacent sequences: A357358 A357359 A357360 * A357362 A357363 A357364

Keyword

nonn,base,more

Author

Felix Fröhlich, Sep 25 2022

Status

approved