A345115 Trajectory of 49 under the map x -> A345111(x).
49, 143, 574, 1319, 4510, 9614, 15763, 73394, 107341, 180752, 988273, 1871012, 10581133, 16392464, 80317105, 83488163, 118369801, 302067812, 322745935, 550205288, 1052258173, 1574839904, 7323238945, 10555628402, 16111912423, 77231036654, 149541403201
Offset: 0
Examples
49 + 94 = 143, 143 + 431 = 574, 574 + 745 = 1319, 1319 + 3191 = 4510, 4510 + 5104 = 9614, ...
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 terms(n) = my(x=49); for(i=1, n, print1(x, ", "); x=x+eva(rot(digits(x)))) terms(50) \\ Print initial 50 terms
-
Python
def pal(s): return s == s[::-1] def rotl(s): return s[1:] + s[0] def A345111(n): return n + int(rotl(str(n))) def aupto(n): alst = [49] for i in range(n): alst.append(A345111(alst[-1])) return alst print(aupto(26)) # Michael S. Branicky, Jun 09 2021
Comments