login
The OEIS is supported by the many generous donors to the OEIS Foundation.

 

Logo
Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A345115 Trajectory of 49 under the map x -> A345111(x). 5
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 (list; graph; refs; listen; history; text; internal format)
OFFSET

0,1

COMMENTS

Does the sequence contain a palindrome?

There is no palindrome among the initial 100000 (10^5) terms.

LINKS

Table of n, a(n) for n=0..26.

EXAMPLE

49 + 94 = 143, 143 + 431 = 574, 574 + 745 = 1319, 1319 + 3191 = 4510, 4510 + 5104 = 9614, ...

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

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

CROSSREFS

Cf. A345110, A345111, A345112, A345113, A345114.

Sequence in context: A304171 A118160 A211501 * A009404 A316121 A087354

Adjacent sequences:  A345112 A345113 A345114 * A345116 A345117 A345118

KEYWORD

nonn,base

AUTHOR

Felix Fröhlich, Jun 09 2021

STATUS

approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recents
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified October 5 03:25 EDT 2022. Contains 357240 sequences. (Running on oeis4.)