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.

Showing 1-5 of 5 results.

A051299 a(n) = a(n-1) + rotate( a(n-1), 1 digit left), a(1) = 1.

Original entry on oeis.org

1, 2, 4, 8, 16, 77, 154, 695, 1651, 8162, 9790, 17699, 94690, 141599, 557590, 1133495, 2468446, 7152908, 8681995, 15501953, 70521484, 75736331, 133099648, 464096129, 1105057423, 2155631654, 3711948196, 10831430159, 19145731750, 110603049251, 216633541762
Offset: 1

Views

Author

Armand Turpel armandt(AT)unforgettable.com

Keywords

Crossrefs

Cf. A051300.

Programs

  • Mathematica
    NestList[#+FromDigits[RotateLeft[IntegerDigits[#]]]&,1,40] (* Harvey P. Dale, Jun 29 2017 *)

Extensions

More terms from Harvey P. Dale, Jun 29 2017

A374734 a(n) = a(n-1) + rotate(a(n-1), n-1 digits left) with a(1) = 1.

Original entry on oeis.org

1, 2, 4, 8, 16, 77, 154, 695, 1264, 3905, 4444, 8888, 17776, 93953, 133348, 481481, 1296295, 7591424, 11839015, 50854133, 92189218, 114081407, 928152547, 1182945362, 10636566544, 47203110650, 78309615370, 139846693679, 606783485077, 955291245755, 1201047201046
Offset: 1

Views

Author

Nicholas M. R. Frieler, Jul 17 2024

Keywords

Examples

			Here we use -m (where m > 0) to represent rotating the digits of a number m digits to the left.
a(9) = a(8) + rotate(a(8), -8) = 695 + rotate(695, -8) = 695 + 569 = 1264.

Links

Crossrefs

Cf. A001127, A051300, A051299, A374731, A374732, A374733.

Programs

  • Mathematica
    a[1] = 1; a[n_] := a[n] = a[n - 1] + FromDigits@RotateLeft[IntegerDigits[a[n - 1]], n - 1]; arr = a[#] & /@ Range[1, 100]
nxt[{n_,a_}]:={n+1,a+FromDigits[RotateLeft[IntegerDigits[a],n]]}; NestList[nxt,{1,1},30][[;;,2]] (* Harvey P. Dale, Nov 08 2024 *)

A374731 a(n) = a(n-1) + rotate(a(n-1), n-2 digits right) with a(1) = 1.

Original entry on oeis.org

1, 2, 4, 8, 16, 32, 55, 110, 121, 332, 664, 1130, 2431, 4862, 7348, 12221, 24442, 46886, 133354, 266708, 1093378, 2027159, 4054318, 12459749, 37057240, 74114480, 81525928, 110341187, 220682374, 642750611, 759178117, 876937295, 1606524988, 10422590237, 20845180474, 62929698521, 84558995506
Offset: 1

Views

Author

Nicholas M. R. Frieler, Jul 17 2024

Keywords

Examples

			a(12) = a(11) + rotate(a(11), 11) = 1130 + rotate(1130, 11) = 1130 + 1301 = 2431.

Crossrefs

Cf. A001127, A051300, A051299, A374732, A374733, A374734.

Programs

  • Mathematica
    a[1] = 1; a[n_] := a[n] = a[n - 1] + FromDigits@RotateRight[IntegerDigits[a[n - 1]], n - 2]; arr = a[#] & /@ Range[0, 100]

A374732 a(n) = a(n-1) + rotate(a(n-1), n-1 digits right) with a(1) = 1.

Original entry on oeis.org

1, 2, 4, 8, 16, 77, 154, 569, 1264, 5390, 14443, 45887, 133345, 646679, 1443145, 6587459, 12553333, 43808666, 110246752, 321271427, 594484141, 736078625, 1598652232, 3920250884, 4804642909, 9095590955, 15005150050, 65055300101, 95065465156, 149717034662
Offset: 1

Views

Author

Nicholas M. R. Frieler, Jul 17 2024

Keywords

Examples

			a(12) = a(11) + rotate(a(11), 11) = 14443 + rotate(14443, 11) = 14443 + 31444 = 45887.

Crossrefs

Cf. A001127, A051300, A051299, A374731, A374733, A374734.

Programs

  • Mathematica
    a[1] = 1; a[n_] := a[n] = a[n - 1] + FromDigits@RotateRight[IntegerDigits[a[n - 1]], n - 1]; arr = a[#] & /@ Range[1, 100]

A374733 a(n) = a(n-1) + rotate(a(n-1), n-2 digits left) with a(1) = 1.

Original entry on oeis.org

1, 2, 4, 8, 16, 32, 55, 110, 211, 332, 664, 1310, 1441, 2882, 11704, 52874, 105748, 586805, 1145485, 5996630, 9056596, 15962255, 41478217, 58892999, 154782298, 452937080, 1257466450, 7707592196, 9675299788, 18572052785, 46423909990, 145470333899, 484461788602
Offset: 1

Views

Author

Nicholas M. R. Frieler, Jul 17 2024

Keywords

Examples

			a(13) = a(12) + rotate_left(a(12), 11) = 1310 + rotate_left(1310, 11) = 1310 + 0131 = 1441.

Crossrefs

Cf. A001127, A051300, A051299, A374731, A374732, A374734.

Programs

  • Mathematica
    a[1] = 1; a[n_] := a[n] = a[n - 1] + FromDigits@RotateLeft[IntegerDigits[a[n - 1]], n - 2]; arr = a[#] & /@ Range[1, 100]
Showing 1-5 of 5 results.

Started in 1964 by Neil J. A. Sloane | Maintained by The OEIS Foundation Inc.

Content is available under The OEIS End-User License Agreement.