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 71 results. Next

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

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
Previous Showing 21-30 of 71 results. Next