A072921 -id:A072921 - cp's OEIS frontend

A152231 Similar to A072921 but starting with 2.

2, 4, 10, 17, 32, 52, 79, 122, 170, 226, 292, 371, 461, 562, 676, 809, 959, 1132, 1312, 1499, 1709, 1936, 2182, 2441, 2711, 2992, 3295, 3617, 3956, 4318, 4696, 5099, 5525, 5968, 6439, 6932, 7445, 7978, 8542, 9125, 9725, 10348, 10987, 11651, 12329, 13024

Offset: 1

N. J. A. Sloane, Oct 07 2009

Alois P. Heinz, Table of n, a(n) for n = 1..1000

b:= proc(n) option remember; local m; m:= a(n); `if`(n=1, 0, b(n-1)); while m>0 do %+ irem(m, 10, 'm') od; % end: a:= proc(n) option remember; `if`(n=1, 2, a(n-1) +b(n-1)) end: seq(a(n), n=1..50); # Alois P. Heinz, Oct 07 2009

A152232 Similar to A072921 but starting with 3.

Original entry on oeis.org

3, 6, 15, 30, 48, 78, 123, 174, 237, 312, 393, 489, 606, 735, 879, 1047, 1227, 1419, 1626, 1848, 2091, 2346, 2616, 2901, 3198, 3516, 3849, 4206, 4575, 4965, 5379, 5817, 6276, 6756, 7260, 7779, 8328, 8898, 9501, 10119, 10749, 11400, 12057, 12729, 13422

Offset: 1

N. J. A. Sloane, Oct 07 2009

Alois P. Heinz, Table of n, a(n) for n = 1..1000

b:= proc(n) option remember; local m; m:= a(n); `if`(n=1, 0, b(n-1)); while m>0 do %+ irem(m, 10, 'm') od; % end: a:= proc(n) option remember; `if`(n=1, 3, a(n-1) +b(n-1)) end: seq(a(n), n=1..50); # Alois P. Heinz, Oct 07 2009

A152233 Similar to A072921 but starting with 4.

Original entry on oeis.org

4, 8, 20, 34, 55, 86, 131, 181, 241, 308, 386, 481, 589, 719, 866, 1033, 1207, 1391, 1589, 1810, 2041, 2279, 2537, 2812, 3100, 3392, 3701, 4021, 4348, 4694, 5063, 5446, 5848, 6275, 6722, 7186, 7672, 8180, 8705, 9250, 9811, 10391, 10985, 11602, 12229

Offset: 1

N. J. A. Sloane, Oct 07 2009

Alois P. Heinz, Table of n, a(n) for n = 1..1000

b:= proc(n) option remember; local m; m:= a(n); `if`(n=1, 0, b(n-1)); while m>0 do %+ irem(m, 10, 'm') od; % end: a:= proc(n) option remember; `if`(n=1, 4, a(n-1) +b(n-1)) end: seq(a(n), n=1..50);  # Alois P. Heinz, Oct 07 2009

A152234 Similar to A072921 but starting with 5.

Original entry on oeis.org

5, 10, 16, 29, 53, 85, 130, 179, 245, 322, 406, 500, 599, 721, 853, 1001, 1151, 1309, 1480, 1664, 1865, 2086, 2323, 2570, 2831, 3106, 3391, 3692, 4013, 4342, 4684, 5048, 5429, 5830, 6247, 6683, 7142, 7615, 8107, 8615, 9143, 9688, 10264, 10853, 11459

Offset: 1

N. J. A. Sloane, Oct 07 2009

Alois P. Heinz, Table of n, a(n) for n = 1..1000

b:= proc(n) option remember; local m; m:= a(n); `if`(n=1, 0, b(n-1)); while m>0 do %+ irem(m, 10, 'm') od; % end: a:= proc(n) option remember; `if`(n=1, 5, a(n-1) +b(n-1)) end: seq(a(n), n=1..50); # Alois P. Heinz, Oct 07 2009

a[0] = a[1] = 5; a[n_] := a[n] = 2*a[n-1]-a[n-2]+Total[IntegerDigits[a[n-1]]]; Table[a[n], {n, 1, 45}] (* Jean-François Alcover, Mar 05 2014 *)

cp's OEIS Frontend

A152231 Similar to A072921 but starting with 2.

Views

Author

Keywords

Links

Programs

Maple

A152232 Similar to A072921 but starting with 3.

Views

Author

Keywords

Links

Programs

Maple

A152233 Similar to A072921 but starting with 4.

Views

Author

Keywords

Links

Programs

Maple

A152234 Similar to A072921 but starting with 5.

Views

Author

Keywords

Links

Programs

Maple

Mathematica