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 31-40 of 79 results. Next

A118613 Start with 1 and repeatedly reverse the digits and add 27 to get the next term.

Original entry on oeis.org

1, 28, 109, 928, 856, 685, 613, 343, 370, 100, 28, 109, 928, 856, 685, 613, 343, 370, 100, 28, 109, 928, 856, 685, 613, 343, 370, 100, 28, 109, 928, 856, 685, 613, 343, 370, 100, 28, 109, 928, 856, 685, 613, 343, 370, 100, 28, 109, 928, 856, 685, 613, 343, 370
Offset: 1

Views

Author

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

Keywords

Comments

After 1 step enters a cycle of length 9.

Crossrefs

Programs

  • Mathematica
    NestList[IntegerReverse[#]+27&,1,60] (* or *) PadRight[{1},60,{100,28,109,928,856,685,613,343,370}] (* Harvey P. Dale, Apr 20 2025 *)

A118614 Start with 1 and repeatedly reverse the digits and add 28 to get the next term.

Original entry on oeis.org

1, 29, 120, 49, 122, 249, 970, 107, 729, 955, 587, 813, 346, 671, 204, 430, 62, 54, 73, 65, 84, 76, 95, 87, 106, 629, 954, 487, 812, 246, 670, 104, 429, 952, 287, 810, 46, 92, 57, 103, 329, 951, 187, 809, 936, 667, 794, 525, 553, 383, 411, 142, 269, 990, 127, 749
Offset: 1

Views

Author

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

Keywords

Comments

After 31 steps enters a cycle of length 36.

Crossrefs

Programs

  • Mathematica
    NestList[IntegerReverse[#]+28&,1,80] (* Harvey P. Dale, Jun 09 2024 *)

A118636 Start with 1 and repeatedly reverse the digits and add 40 to get the next term.

Original entry on oeis.org

1, 41, 54, 85, 98, 129, 961, 209, 942, 289, 1022, 2241, 1462, 2681, 1902, 2131, 1352, 2571, 1792, 3011, 1143, 3451, 1583, 3891, 2023, 3242, 2463, 3682, 2903, 3132, 2353, 3572, 2793, 4012, 2144, 4452, 2584, 4892, 3024, 4243, 3464, 4683, 3904, 4133, 3354
Offset: 1

Views

Author

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

Keywords

Crossrefs

Programs

  • Mathematica
    NestList[FromDigits[Reverse[IntegerDigits[#]]]+40&,1,50]  (* Harvey P. Dale, Dec 26 2010 *)
    NestList[IntegerReverse[#]+40&,1,50] (* Harvey P. Dale, Aug 05 2025 *)

Formula

Never reaches a cycle (see A117816).

A118637 Start with 1 and repeatedly reverse the digits and add 30 to get the next term.

Original entry on oeis.org

1, 31, 43, 64, 76, 97, 109, 931, 169, 991, 229, 952, 289, 1012, 2131, 1342, 2461, 1672, 2791, 2002, 2032, 2332, 2362, 2662, 2692, 2992, 3022, 2233, 3352, 2563, 3682, 2893, 4012, 2134, 4342, 2464, 4672, 2794, 5002, 2035, 5332, 2365, 5662, 2695, 5992, 3025
Offset: 1

Views

Author

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

Keywords

Crossrefs

Programs

  • Mathematica
    NestList[FromDigits[Reverse[IntegerDigits[#]]]+30&,1,60] (* Harvey P. Dale, Jul 19 2014 *)

Formula

Never reaches a cycle (see A117816).

Extensions

Corrected by Harvey P. Dale, Jul 19 2014

A118074 Start with 1 and repeatedly reverse the digits and add 41 to get the next term.

Original entry on oeis.org

1, 42, 65, 97, 120, 62, 67, 117, 752, 298, 933, 380, 124, 462, 305, 544, 486, 725, 568, 906, 650, 97, 120, 62, 67, 117, 752, 298, 933, 380, 124, 462, 305, 544, 486, 725, 568, 906, 650, 97, 120, 62, 67, 117, 752, 298, 933, 380, 124, 462, 305, 544, 486, 725
Offset: 1

Views

Author

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

Keywords

Comments

After 3 steps enters a cycle of length 18.

Crossrefs

Programs

  • Mathematica
    NestList[FromDigits[Reverse[IntegerDigits[#]]]+41&,1,60] (* Harvey P. Dale, May 28 2014 *)

Extensions

Corrected by Harvey P. Dale, May 28 2014

A118075 Start with 1 and repeatedly reverse the digits and add 42 to get the next term.

Original entry on oeis.org

1, 43, 76, 109, 943, 391, 235, 574, 517, 757, 799, 1039, 9343, 3481, 1885, 5923, 3337, 7375, 5779, 9817, 7231, 1369, 9673, 3811, 1225, 5263, 3667, 7705, 5119, 9157, 7561, 1699, 10003, 30043, 34045, 54085, 58087, 78127, 72229, 92269, 96271, 17311, 11413
Offset: 1

Views

Author

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

Keywords

Comments

After 245 steps enters a cycle of length 57. Sequence gives first 50 terms. Cycle : 985, 631, 178, 913, 361, 205, 544, 487, 826, 670, 118, 853, 400, 46, 106, 643, 388, 925, 571, 217, 754, 499, 1036, 6343, 3478, 8785, 5920, 337, 775, 619, 958, 901, 151, 193, 433, 376, 715, 559, 997, 841, 190, 133, 373, 415, 556, 697, 868, 880, 130, 73, 79, 139, 973, 421, 166, 703, 349, 985 ...

Crossrefs

Programs

  • Mathematica
    NestList[FromDigits[Reverse[IntegerDigits[#]]]+42&,1,50] (* Harvey P. Dale, Oct 05 2014 *)

Extensions

Corrected by Harvey P. Dale, Oct 05 2014

A118087 Start with 1 and repeatedly reverse the digits and add 43 to get the next term.

Original entry on oeis.org

1, 44, 87, 121, 164, 504, 448, 887, 831, 181, 224, 465, 607, 749, 990, 142, 284, 525, 568, 908, 852, 301, 146, 684, 529, 968, 912, 262, 305, 546, 688, 929, 972, 322, 266, 705, 550, 98, 132, 274, 515, 558, 898, 941, 192, 334, 476, 717, 760, 110, 54, 88, 131, 174, 514, 458, 897, 841, 191, 234, 475, 617, 759, 1000, 44
Offset: 1

Views

Author

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

Keywords

Comments

After 1 step enters a cycle of length 63.

Crossrefs

Programs

  • Maple
    a:= proc(n) option remember; `if`(n=1, 1, 43 +(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

a(n) = 43 + A004086(a(n-1)) for n > 1, a(1) = 1. - Alois P. Heinz, Nov 07 2019

Extensions

a(43)-a(52) corrected and more terms added by Alois P. Heinz, Nov 07 2019

A118091 Start with 1 and repeatedly reverse the digits and add 46 to get the next term.

Original entry on oeis.org

1, 47, 120, 67, 122, 267, 808, 854, 504, 451, 200, 48, 130, 77, 123, 367, 809, 954, 505, 551, 201, 148, 887, 834, 484, 530, 81, 64, 92, 75, 103, 347, 789, 1033, 3347, 7479, 9793, 4025, 5250, 571, 221, 168, 907, 755, 603, 352, 299, 1038, 8347, 7484, 4893
Offset: 1

Views

Author

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

Keywords

Comments

After 422 steps enters a cycle of 90. All 90 numbers of the cycle are 4-digit numbers.

Crossrefs

Programs

  • Mathematica
    NestList[FromDigits[Reverse[IntegerDigits[#]]]+46&,1,50] (* Harvey P. Dale, Sep 24 2013 *)
    NestList[IntegerReverse[#]+46&,1,60] (* Harvey P. Dale, Sep 02 2025 *)

Extensions

Corrected by Harvey P. Dale, Sep 24 2013

A118145 Start with 1 and repeatedly reverse the digits and add 47 to get the next term.

Original entry on oeis.org

1, 48, 131, 178, 918, 866, 715, 564, 512, 262, 309, 950, 106, 648, 893, 445, 591, 242, 289, 1029, 9248, 8476, 6795, 6023, 3253, 3570, 800, 55, 102, 248, 889, 1035, 5348, 8482, 2895, 6029, 9253, 3576, 6800, 133, 378, 920, 76, 114, 458, 901, 156, 698, 943
Offset: 1

Views

Author

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

Keywords

Comments

After 42 steps enters a cycle of 18.

Crossrefs

Programs

  • Mathematica
    NestList[FromDigits[Reverse[IntegerDigits[#]]]+47&,1,50]  (* Harvey P. Dale, Apr 25 2011 *)

A118146 Start with 1 and repeatedly reverse the digits and add 49 to get the next term.

Original entry on oeis.org

1, 50, 54, 94, 98, 138, 880, 137, 780, 136, 680, 135, 580, 134, 480, 133, 380, 132, 280, 131, 180, 130, 80, 57, 124, 470, 123, 370, 122, 270, 121, 170, 120, 70, 56, 114, 460, 113, 360, 112, 260, 111, 160, 110, 60, 55, 104, 450, 103, 350, 102, 250, 101, 150, 100
Offset: 1

Views

Author

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

Keywords

Comments

After 1 step enters a cycle of 54.

Crossrefs

Programs

  • Mathematica
    NestList[FromDigits[Reverse[IntegerDigits[#]]]+49&,1,80]
    NestList[IntegerReverse[#]+49&,1,70] (* Requires Mathematica version 10 or later *) (* Harvey P. Dale, Aug 22 2016 *)
Previous Showing 31-40 of 79 results. Next