A169732 -id:A169732 - cp's OEIS frontend

A169733 First differences of A169732, negated.

1, 27, 18, 18, 18, 18, 9, 18, 18, 18, 18, 18, 9, 18, 18, 18, 18, 9, 9, 9, 18, 18, 18, 18, 9, 9, 9, 18, 18, 18, 9, 9, 9, 9, 9, 18, 18, 18, 9, 9, 9, 9, 9, 18, 18, 9, 9, 9, 9, 9, 9, 9, 18, 18, 9, 9, 9, 9, 9, 9, 9, 18, 9, 9, 9, 9, 9, 9, 9, 9, 9, 18, 9, 9, 9, 9, 9, 9, 9, 9, 9, 0, 0, 0, 0, 0, 0, 0, 0, 0

Offset: 1

N. J. A. Sloane, May 01 2010

A169735 a(1) = 100; for n>1, a(n) = a(n-1) - digitsum(a(n-1)).

Original entry on oeis.org

100, 99, 81, 72, 63, 54, 45, 36, 27, 18, 9, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0

Offset: 1

N. J. A. Sloane, May 01 2010

Cf. A169732, A169736.

A169734 a(1) = 1000; for n>1, a(n) = a(n-1) + digitsum(a(n-1)).

Original entry on oeis.org

1000, 1001, 1003, 1007, 1015, 1022, 1027, 1037, 1048, 1061, 1069, 1085, 1099, 1118, 1129, 1142, 1150, 1157, 1171, 1181, 1192, 1205, 1213, 1220, 1225, 1235, 1246, 1259, 1276, 1292, 1306, 1316, 1327, 1340, 1348, 1364, 1378, 1397, 1417, 1430, 1438, 1454

Offset: 1

N. J. A. Sloane, May 01 2010

First differences are A065075. Cf. A169732.

f:=proc(n) global S; option remember; if n=1 then RETURN(S) else RETURN(f(n-1)+digsum(f(n-1))); fi; end; S:=1000; [seq(f(n),n=1..120)];

A169737 a(1) = 100; for n>1, a(n) = a(n-1) + digitsum(a(n-1)).

Original entry on oeis.org

100, 101, 103, 107, 115, 122, 127, 137, 148, 161, 169, 185, 199, 218, 229, 242, 250, 257, 271, 281, 292, 305, 313, 320, 325, 335, 346, 359, 376, 392, 406, 416, 427, 440, 448, 464, 478, 497, 517, 530, 538, 554, 568, 587, 607, 620, 628, 644, 658, 677, 697, 719, 736, 752

Offset: 1

N. J. A. Sloane, May 01 2010

Cf. A169732, A007618. First differences are A065075.

NestList[#+Total[IntegerDigits[#]]&,100,60] (* Harvey P. Dale, Aug 23 2019 *)

cp's OEIS Frontend

A169733 First differences of A169732, negated.

Views

Author

Keywords

A169735 a(1) = 100; for n>1, a(n) = a(n-1) - digitsum(a(n-1)).

Views

Author

Keywords

Crossrefs

A169734 a(1) = 1000; for n>1, a(n) = a(n-1) + digitsum(a(n-1)).

Views

Author

Keywords

Crossrefs

Programs

Maple

A169737 a(1) = 100; for n>1, a(n) = a(n-1) + digitsum(a(n-1)).

Views

Author

Keywords

Crossrefs

Programs

Mathematica