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-8 of 8 results.

A051408 a(n+1) = a(n) + sum of digits of (a(n)^3).

Original entry on oeis.org

3, 12, 30, 39, 66, 102, 120, 138, 165, 192, 237, 255, 291, 318, 345, 372, 417, 444, 489, 525, 552, 597, 633, 669, 714, 759, 804, 849, 885, 921, 966, 1011, 1038, 1083, 1128, 1164, 1218, 1254, 1299, 1353, 1407, 1452, 1488, 1533, 1578, 1623, 1668, 1713, 1758
Offset: 1

Views

Author

Miklos SZABO (mike(AT)ludens.elte.hu)

Keywords

Links

Crossrefs

Cf. A051373.

Programs

  • Mathematica
    NestList[#+Total[IntegerDigits[#^3]]&,3,50] (* Harvey P. Dale, Jun 15 2019 *)

A051409 a(n+1) = a(n) + sum of digits of (a(n)^3).

Original entry on oeis.org

4, 14, 31, 59, 85, 104, 130, 149, 184, 212, 247, 275, 319, 356, 382, 428, 463, 509, 544, 590, 616, 662, 697, 743, 769, 815, 850, 869, 913, 959, 1012, 1049, 1084, 1121, 1165, 1202, 1246, 1292, 1345, 1382, 1435, 1499, 1552, 1598, 1642, 1679, 1732, 1787, 1822
Offset: 1

Views

Author

Miklos SZABO (mike(AT)ludens.elte.hu)

Keywords

Links

Crossrefs

Cf. A051373.

Programs

  • Mathematica
    NestList[#+Total[IntegerDigits[#^3]]&,4,50] (* Harvey P. Dale, Jun 19 2025 *)

A051414 a(n+1) = a(n) + sum of digits of a(n)^3.

Original entry on oeis.org

145, 173, 208, 254, 289, 326, 370, 389, 442, 488, 514, 560, 586, 605, 631, 668, 712, 749, 793, 848, 883, 938, 982, 1037, 1072, 1109, 1153, 1199, 1252, 1289, 1324, 1352, 1387, 1433, 1486, 1532, 1585, 1640, 1666, 1712, 1756, 1802, 1846, 1892, 1945, 2000
Offset: 1

Views

Author

Miklos SZABO (mike(AT)ludens.elte.hu)

Keywords

Comments

Elements >= 1109 can be found in A051373.

Crossrefs

Cf. A051373.

Programs

  • Mathematica
    NestList[#+Total[IntegerDigits[#^3]]&,145,50]  (* Harvey P. Dale, Jan 09 2011 *)

A051410 a(n+1) = a(n) + sum of digits of a(n)^3.

Original entry on oeis.org

6, 15, 33, 60, 69, 96, 132, 177, 204, 249, 285, 312, 339, 384, 411, 447, 483, 528, 573, 609, 654, 699, 735, 780, 807, 852, 888, 915, 960, 996, 1050, 1077, 1113, 1176, 1230, 1266, 1311, 1338, 1383, 1437, 1482, 1527, 1563, 1608, 1653, 1698, 1752, 1797, 1851
Offset: 1

Views

Author

Miklos SZABO (mike(AT)ludens.elte.hu)

Keywords

Crossrefs

Cf. A051373.

Programs

  • Mathematica
    NestList[#+Total[IntegerDigits[#^3]]&,6,50] (* Harvey P. Dale, Aug 16 2011 *)

A051411 a(n+1) = a(n) + sum of digits of a(n)^3.

Original entry on oeis.org

7, 17, 34, 53, 88, 116, 151, 179, 214, 242, 277, 305, 340, 359, 403, 440, 466, 503, 538, 575, 610, 638, 682, 719, 772, 818, 853, 890, 925, 962, 1006, 1034, 1060, 1079, 1114, 1160, 1195, 1250, 1276, 1322, 1357, 1412, 1456, 1502, 1546, 1592, 1645, 1673, 1717
Offset: 1

Views

Author

Miklos SZABO (mike(AT)ludens.elte.hu)

Keywords

Crossrefs

Cf. A051373.

A051412 a(n+1) = a(n) + sum of digits of a(n)^3.

Original entry on oeis.org

9, 27, 54, 81, 99, 135, 162, 189, 225, 252, 270, 297, 333, 369, 396, 432, 468, 486, 522, 558, 585, 603, 639, 675, 720, 747, 783, 828, 873, 918, 954, 999, 1053, 1107, 1143, 1179, 1233, 1278, 1323, 1368, 1395, 1440, 1485, 1530, 1566, 1620, 1647, 1692, 1755
Offset: 1

Views

Author

Miklos SZABO (mike(AT)ludens.elte.hu)

Keywords

Crossrefs

Cf. A051373.

A051413 a(n+1) = a(n) + sum of digits of (a(n)^3).

Original entry on oeis.org

46, 74, 91, 119, 154, 182, 217, 236, 262, 308, 334, 371, 397, 434, 469, 497, 532, 578, 604, 641, 676, 722, 766, 812, 856, 884, 919, 965, 1009, 1046, 1081, 1109, 1153, 1199, 1252, 1289, 1324, 1352, 1387, 1433, 1486, 1532, 1585, 1640, 1666, 1712, 1756, 1802
Offset: 1

Views

Author

Miklos SZABO (mike(AT)ludens.elte.hu)

Keywords

Comments

Elements >= 469 can be found in A051373.

Crossrefs

Cf. A051373.

Programs

  • Mathematica
    NestList[#+Total[IntegerDigits[#^3]]&,46,50] (* Harvey P. Dale, Jun 18 2013 *)

Extensions

Definition clarified by Harvey P. Dale, Jun 18 2013

A051415 Numbers not of form n + sum of digits of n^3.

Original entry on oeis.org

1, 3, 4, 5, 6, 7, 8, 9, 18, 20, 21, 22, 23, 24, 25, 26, 29, 37, 38, 43, 45, 46, 48, 49, 51, 57, 62, 65, 68, 72, 73, 75, 76, 78, 79, 87, 90, 92, 93, 94, 95, 98, 100, 106, 115, 117, 121, 123, 126, 127, 128, 129, 133, 134, 139, 142, 145, 146, 147, 150, 153, 156, 158, 160
Offset: 1

Views

Author

Miklos SZABO (mike(AT)ludens.elte.hu)

Keywords

Crossrefs

Cf. A003052, A051374, A051373, A051408-A051414.

Programs

  • Mathematica
    With[{nn=160},Select[Complement[Range[nn],#+Total[ IntegerDigits[ #^3]]&/@Range[nn]],#<=nn&]] (* Harvey P. Dale, Jul 19 2012 *)
Showing 1-8 of 8 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.