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

Author

Felix Fröhlich, Sep 25 2022

Keywords

• nonn
• base
• more

Crossrefs

Cf. A345112.

Programs

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