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-10 of 18 results. Next

A070196 a(n) = n plus the sorted version of the base-10 digits of n.

Original entry on oeis.org

0, 2, 4, 6, 8, 10, 12, 14, 16, 18, 11, 22, 24, 26, 28, 30, 32, 34, 36, 38, 22, 33, 44, 46, 48, 50, 52, 54, 56, 58, 33, 44, 55, 66, 68, 70, 72, 74, 76, 78, 44, 55, 66, 77, 88, 90, 92, 94, 96, 98, 55, 66, 77, 88, 99, 110, 112, 114, 116, 118, 66, 77, 88, 99, 110, 121, 132, 134
Offset: 0

Views

Author

Eric W. Weisstein, Apr 27 2002

Keywords

Links

Crossrefs

Cf. A033862.
Cf. A004185, A033860 (iterated, starting with 1).

Programs

  • Haskell
    a070196 n = n + a004185 n  -- Reinhard Zumkeller, Apr 03 2015
  • Maple
    a:= n-> n+parse(cat(sort(convert(n, base, 10))[])):
seq(a(n), n=0..67);  # Alois P. Heinz, Jan 15 2024
  • Mathematica
    Table[n+FromDigits[Sort[IntegerDigits[n]]],{n,0,70}] (* Harvey P. Dale, Feb 08 2020 *)
  • Python
    def a(n): return n + int("".join(sorted(str(n))))
print([a(n) for n in range(68)]) # Michael S. Branicky, Jan 15 2024

Formula

a(n) = n + A004185(n). - Reinhard Zumkeller, Apr 03 2015

Extensions

Zero prepended and offset changed by Reinhard Zumkeller, Apr 03 2015

A033861 Sort-then-add sequence: a(1) = 316, a(n+1) = a(n) + sort(a(n)).

Original entry on oeis.org

316, 452, 697, 1376, 2743, 5090, 5149, 6608, 7276, 9953, 13552, 25907, 28486, 53174, 66631, 80297, 83086, 86774, 133552, 256907, 282586, 508274, 532852, 756410, 770977, 848756, 1305544, 1439999, 2789998, 5578997, 11156896
Offset: 1

Views

Author

David W. Wilson

Keywords

Comments

316 is almost certainly the least starter not leading to a sorted element.

Examples

			a(1) = 316, a(2) = a(1)+sort(a(1)) = 316 + 136 = 452, a(3) = a(2) + sort(a(2)) = 452 + 245 = 697. - _Indranil Ghosh_, Jan 29 2017

Links

Crossrefs

Cf. A033860, A033862, A033863.

Programs

  • Mathematica
    NestList[#+FromDigits[Sort[IntegerDigits[#]]]&,316,40] (* Harvey P. Dale, Jan 28 2013 *)
  • Python
    A033861_list = [316]
for i in range(100):
    x = A033861_list[-1]
    A033861_list.append(x+int(''.join(sorted(str(x))))) # Chai Wah Wu, Feb 07 2020

A033896 Sort then Add, a(1) =9.

Original entry on oeis.org

9, 18, 36, 72, 99, 198, 387, 765, 1332, 2565, 5121, 6246, 8712, 9990, 10989, 12888, 25776, 51453, 64908, 69597, 126396, 250065, 252621, 374877, 722655, 948222, 1170711, 1281888, 2410776, 2535453, 4870008, 4874796, 9342585, 11688174, 22834962, 45069651
Offset: 1

Views

Author

N. J. A. Sloane, David W. Wilson

Keywords

Links

Crossrefs

Cf. A033860, A066711.

Programs

  • Maple
    A033896 := proc(n)
    option remember ;
    if n =1 then
        9;
    else
        A070196(procname(n-1)) ;
    end if;
end proc:
seq(A033896(n),n=1..100) ; # R. J. Mathar, Feb 03 2025
  • Mathematica
    NestList[FromDigits[Sort[IntegerDigits[#]]]+#&,9,40] (* Harvey P. Dale, Aug 19 2014 *)
  • Python
    from itertools import accumulate
def sta(anm1, _): return anm1 + int("".join(sorted(str(anm1))))
print(list(accumulate([9]*36, sta))) # Michael S. Branicky, Sep 18 2021

A033898 Sort then Add, a(1)=15.

Original entry on oeis.org

15, 30, 33, 66, 132, 255, 510, 525, 780, 858, 1446, 2892, 5181, 6339, 9708, 10497, 11976, 23655, 47211, 58458, 104046, 105492, 117951, 229530, 251889, 377778, 755556, 1311123, 2422356, 4645812, 5890380, 5926269, 8182968, 9451857, 10907646
Offset: 1

Views

Author

N. J. A. Sloane, David W. Wilson

Keywords

Crossrefs

Cf. A033860.

Programs

A033902 Sort then Add, a(1)=25.

Original entry on oeis.org

25, 50, 55, 110, 121, 233, 466, 932, 1171, 2288, 4576, 9143, 10492, 11741, 22888, 45776, 91453, 104912, 116161, 227327, 449704, 494183, 628672, 855350, 890908, 899807, 978706, 1046495, 1191064, 1302533, 1425868, 2671556, 3927223, 6150602
Offset: 1

Views

Author

N. J. A. Sloane, David W. Wilson

Keywords

Crossrefs

Cf. A033860.

Programs

A033905 Sort then Add, a(1)=31.

Original entry on oeis.org

31, 44, 88, 176, 343, 677, 1354, 2699, 5398, 8987, 16876, 33554, 67009, 67688, 134476, 268943, 503632, 526988, 783877, 1161665, 2277331, 3500708, 3504286, 3738854, 7084642, 7329320, 7552699, 10109498, 10224397, 11447876, 22894654, 45340343
Offset: 1

Views

Author

N. J. A. Sloane, David W. Wilson

Keywords

Links

Crossrefs

Cf. A033860.

Programs

  • Maple
    A033905 := proc(n)
    option remember ;
    if n =1 then
        31;
    else
        A070196(procname(n-1)) ;
    end if;
end proc:
seq(A033905(n),n=1..100) ; # R. J. Mathar, Feb 03 2025
  • Mathematica
    NestList[#+FromDigits[Sort[IntegerDigits[#]]]&,31,40] (* Harvey P. Dale, Jul 19 2017 *)

A033893 Sort then Add, a(1)=3.

Original entry on oeis.org

3, 6, 12, 24, 48, 96, 165, 321, 444, 888, 1776, 3453, 6798, 13587, 27165, 39732, 63111, 74247, 98724, 123513, 235848, 470436, 504903, 508362, 531930, 545289, 790878, 868767, 1536555, 2892111, 4004400, 4004844, 4049292, 4273791, 5508570, 5564148, 7009716
Offset: 1

Views

Author

N. J. A. Sloane and David W. Wilson

Keywords

Comments

a(n+1) is obtained by sorting the digits of a(n) into increasing order then adding this number to a(n).

Examples

			96 + 69 = 165.

Links

Crossrefs

Cf. A033860.

Programs

A033894 Sort then Add, a(1)=5.

Original entry on oeis.org

5, 10, 11, 22, 44, 88, 176, 343, 677, 1354, 2699, 5398, 8987, 16876, 33554, 67009, 67688, 134476, 268943, 503632, 526988, 783877, 1161665, 2277331, 3500708, 3504286, 3738854, 7084642, 7329320, 7552699, 10109498, 10224397, 11447876
Offset: 1

Views

Author

N. J. A. Sloane, David W. Wilson

Keywords

Crossrefs

Cf. A033860.

Programs

  • Maple
    A033894 := proc(n)
    option remember ;
    if n =1 then
        5;
    else
        A070196(procname(n-1)) ;
    end if;
end proc:
seq(A033894(n),n=1..100) ; # R. J. Mathar, Feb 03 2025
  • Mathematica
    NestList[#+FromDigits[Sort[IntegerDigits[#]]]&,5,40] (* Harvey P. Dale, Dec 31 2015 *)

A033895 Sort then Add, a(1)=7.

Original entry on oeis.org

7, 14, 28, 56, 112, 224, 448, 896, 1585, 3143, 4477, 8954, 13543, 26888, 53776, 89453, 124042, 136286, 259954, 505553, 541108, 552566, 808132, 820520, 822778, 1050566, 1066132, 1178498, 2326387, 4560065, 4605631, 4740197, 4884976, 9352865
Offset: 1

Views

Author

N. J. A. Sloane, David W. Wilson

Keywords

Examples

			1585 --> 1558 (sorted) and adding them gives 1585+1558 = 3143.

Crossrefs

Cf. A033860.

Programs

A033897 Sort then Add, a(1)=13.

Original entry on oeis.org

13, 26, 52, 77, 154, 299, 598, 1187, 2365, 4721, 5968, 11657, 23224, 45458, 90016, 90185, 91774, 106553, 120109, 121238, 233476, 466943, 811612, 922880, 945769, 1402568, 1527136, 2650703, 2674270, 2898947, 5377846, 8834624, 11179312
Offset: 1

Views

Author

N. J. A. Sloane, David W. Wilson

Keywords

Crossrefs

Cf. A033860.

Programs

  • Maple
    A033897 := proc(n)
    option remember ;
    if n =1 then
        13;
    else
        A070196(procname(n-1)) ;
    end if;
end proc:
seq(A033897(n),n=1..100) ; # R. J. Mathar, Feb 03 2025
  • Mathematica
    NestList[#+FromDigits[Sort[IntegerDigits[#]]]&,13,40] (* Harvey P. Dale, Sep 09 2012 *)
Showing 1-10 of 18 results. Next

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

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