A357361 - OEIS

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

(list; graph; refs; listen; history; text; internal format)

OFFSET

1,2

LINKS

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

KEYWORD

nonn,base,more

AUTHOR

STATUS

approved