cp's OEIS Frontend

This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.

Previous Showing 21-30 of 79 results. Next

A118217 Start with 1 and repeatedly reverse the digits and add 70 to get the next term.

Original entry on oeis.org

1, 71, 87, 148, 911, 189, 1051, 1571, 1821, 1351, 1601, 1131, 1381, 1901, 1161, 1681, 1931, 1461, 1711, 1241, 1491, 2011, 1172, 2781, 1942, 2561, 1722, 2341, 1502, 2121, 1282, 2891, 2052, 2572, 2822, 2352, 2602, 2132, 2382, 2902, 2162, 2682, 2932, 2462
Offset: 1

Views

Author

Luc Stevens (lms022(AT)yahoo.com), May 14 2006

Keywords

Comments

Never cycles (see A117816).

Crossrefs

Programs

  • Mathematica
    NestList[IntegerReverse[#]+70&,1,50] (* Harvey P. Dale, Sep 11 2023 *)

A118225 Start with 1 and repeatedly reverse the digits and add 74 to get the next term.

Original entry on oeis.org

1, 75, 131, 205, 576, 749, 1021, 1275, 5795, 6049, 9480, 923, 403, 378, 947, 823, 402, 278, 946, 723, 401, 178, 945, 623, 400, 78, 161, 235, 606, 680, 160, 135, 605, 580, 159, 1025, 5275, 5799, 10049, 94075, 57123, 32249, 94297, 79323, 32471, 17497, 79545
Offset: 1

Views

Author

Luc Stevens (lms022(AT)yahoo.com), May 14 2006

Keywords

Comments

After 192 steps enters a cycle of 90.

Crossrefs

Programs

  • Mathematica
    NestList[74+IntegerReverse[#]&,1,50] (* Harvey P. Dale, Jan 05 2022 *)

Extensions

a(14) corrected by Georg Fischer, Jul 17 2020

A118525 Start with 1 and repeatedly reverse the digits and add 6 to get the next term.

Original entry on oeis.org

1, 7, 13, 37, 79, 103, 307, 709, 913, 325, 529, 931, 145, 547, 751, 163, 367, 769, 973, 385, 589, 991, 205, 508, 811, 124, 427, 730, 43, 40, 10, 7, 13, 37, 79, 103, 307, 709, 913, 325, 529, 931, 145, 547, 751, 163, 367, 769, 973, 385, 589, 991
Offset: 1

Views

Author

N. J. A. Sloane, May 06 2006

Keywords

Comments

After the initial term, the sequence enters the cycle (7, 13, 37, ..., 10) of length 30.

Crossrefs

Programs

  • Mathematica
    NestList[FromDigits[Reverse[IntegerDigits[#]]]+6&,1,60]  (* Harvey P. Dale, Apr 22 2011 *)
  • PARI
    a(n,s=1)={n>1&&for(i=0,(n-2)%30,s=R(s)+6);s} \\ R =  A004086. - M. F. Hasler, May 22 2014

Formula

a(n) = a((n-2 mod 30)+2) for all n>1. - M. F. Hasler, May 22 2014

A118526 Start with 1 and repeatedly reverse the digits and add 7 to get the next term.

Original entry on oeis.org

1, 8, 15, 58, 92, 36, 70, 14, 48, 91, 26, 69, 103, 308, 810, 25, 59, 102, 208, 809, 915, 526, 632, 243, 349, 950, 66, 73, 44, 51, 22, 29, 99, 106, 608, 813, 325, 530, 42, 31, 20, 9, 16, 68, 93, 46, 71, 24, 49, 101, 108, 808, 815, 525, 532, 242, 249, 949, 956, 666, 673, 383, 390, 100, 8
Offset: 1

Views

Author

N. J. A. Sloane, May 06 2006

Keywords

Crossrefs

Programs

  • Maple
    a:= proc(n) option remember; `if`(n=1, 1, 7 +(s-> parse(
          cat(seq(s[-i], i=1..length(s)))))(cat("", a(n-1))))
        end:
    seq(a(n), n=1..65);  # Alois P. Heinz, Nov 07 2019

Formula

After 1 step enters a cycle of length 63.

A118527 Start with 1 and repeatedly reverse the digits and add 8 to get the next term.

Original entry on oeis.org

1, 9, 17, 79, 105, 509, 913, 327, 731, 145, 549, 953, 367, 771, 185, 589, 993, 407, 712, 225, 530, 43, 42, 32, 31, 21, 20, 10, 9, 17, 79, 105, 509, 913, 327, 731, 145, 549, 953, 367, 771, 185, 589, 993, 407, 712, 225, 530, 43, 42, 32, 31, 21, 20, 10, 9
Offset: 1

Views

Author

N. J. A. Sloane, May 06 2006

Keywords

Crossrefs

Formula

After 1 step enters a cycle of length 27.

A118528 Start with 1 and repeatedly reverse the digits and add 11 to get the next term.

Original entry on oeis.org

1, 12, 32, 34, 54, 56, 76, 78, 98, 100, 12, 32, 34, 54, 56, 76, 78, 98, 100, 12, 32, 34, 54, 56, 76, 78, 98, 100, 12, 32, 34, 54, 56, 76, 78, 98, 100, 12, 32, 34, 54, 56, 76, 78, 98, 100, 12, 32, 34, 54, 56, 76, 78, 98, 100, 12, 32, 34, 54, 56, 76, 78, 98, 100
Offset: 1

Views

Author

N. J. A. Sloane, May 06 2006

Keywords

Crossrefs

Formula

After 1 step enters a cycle of length 9.

A118530 Start with 1 and repeatedly reverse the digits and add 13 to get the next term.

Original entry on oeis.org

1, 14, 54, 58, 98, 102, 214, 425, 537, 748, 860, 81, 31, 26, 75, 70, 20, 15, 64, 59, 108, 814, 431, 147, 754, 470, 87, 91, 32, 36, 76, 80, 21, 25, 65, 69, 109, 914, 432, 247, 755, 570, 88, 101, 114, 424, 437, 747, 760, 80, 21, 25, 65, 69, 109, 914, 432
Offset: 1

Views

Author

N. J. A. Sloane, May 06 2006

Keywords

Crossrefs

Programs

  • Mathematica
    NestList[FromDigits[Reverse[IntegerDigits[#]]]+13&,1,60] (* Harvey P. Dale, Oct 27 2015 *)

Formula

After 31 steps enters a cycle of length 18.

A118531 Start with 1 and repeatedly reverse the digits and add 14 to get the next term.

Original entry on oeis.org

1, 15, 65, 70, 21, 26, 76, 81, 32, 37, 87, 92, 43, 48, 98, 103, 315, 527, 739, 951, 173, 385, 597, 809, 922, 243, 356, 667, 780, 101, 115, 525, 539, 949, 963, 383, 397, 807, 722, 241, 156, 665, 580, 99, 113, 325, 537, 749, 961, 183, 395, 607, 720
Offset: 1

Views

Author

N. J. A. Sloane, May 06 2006

Keywords

Crossrefs

Programs

  • Mathematica
    NestList[FromDigits[Reverse[IntegerDigits[#]]]+14&,1,60] (* Harvey P. Dale, Jul 11 2013 *)

Formula

After 15 steps enters a cycle of length 72.

A118536 Start with 1 and repeatedly reverse the digits and add 36 to get the next term.

Original entry on oeis.org

1, 37, 109, 937, 775, 613, 352, 289, 1018, 8137, 7354, 4573, 3790, 1009, 9037, 7345, 5473, 3781, 1909, 9127, 7255, 5563, 3691, 1999, 10027, 72037, 73063, 36073, 37099, 99109, 90235, 53245, 54271, 17281, 18307, 70417, 71443, 34453, 35479, 97489, 98515, 51625
Offset: 1

Views

Author

Luc Stevens (lms022(AT)yahoo.com), May 07 2006

Keywords

Comments

This is the first known example of a sequence from this family which reaches a cycle of length 2.
That cycle begins at a(407) and is (64, 82). - Harvey P. Dale, Apr 12 2013

Crossrefs

Programs

  • Mathematica
    NestList[FromDigits[Reverse[IntegerDigits[#]]]+36&,1,500] (* Harvey P. Dale, Apr 12 2013 *)

Formula

After 406 steps enters a cycle of length 2.

Extensions

Corrected by Harvey P. Dale, Apr 12 2013

A118607 Start with 1 and repeatedly reverse the digits and add 18 to get the next term.

Original entry on oeis.org

1, 19, 109, 919, 937, 757, 775, 595, 613, 334, 451, 172, 289, 1000, 19, 109, 919, 937, 757, 775, 595, 613, 334, 451, 172, 289, 1000, 19, 109, 919, 937, 757, 775, 595, 613, 334, 451, 172, 289, 1000, 19, 109, 919, 937, 757, 775, 595, 613, 334, 451, 172, 289
Offset: 1

Views

Author

Luc Stevens (lms022(AT)yahoo.com), May 08 2006

Keywords

Comments

After 1 step enters a cycle of length 13.

Crossrefs

Programs

  • Mathematica
    NestList[IntegerReverse[#]+18&,1,60] (* or *) PadRight[{1},120,{1000,19,109,919,937,757,775,595,613,334,451,172,289}] (* Harvey P. Dale, Feb 19 2023 *)

Formula

a(n) = a(n-13) for n >= 15. - Wesley Ivan Hurt, Sep 04 2022
Previous Showing 21-30 of 79 results. Next