A271991 g_n(10) where g is the weak Goodstein function defined in A266202.

10, 29, 65, 125, 215, 284, 363, 452, 551, 660, 779, 907, 1045, 1193, 1351, 1519, 1697, 1885, 2083, 2291, 2509, 2737, 2975, 3222, 3479, 3746, 4023, 4310, 4607, 4914, 5231, 5558, 5895, 6242, 6599, 6966, 7343, 7730, 8127, 8534, 8951

Offset

0,1

Comments

For more info see A266201-A266202.

Links

Table of n, a(n) for n=0..40.

Mathematica

g[k_, n_] := If[k == 0, n, Total@ Flatten@ MapIndexed[#1 (k + 2)^(#2 - 1) &, Reverse@ IntegerDigits[#, k + 1]] &@ g[k - 1, n] - 1]; Table[g[n, 10], {n, 0, 40}]

Crossrefs

Cf. A271557: G_n(10).

Weak Goodstein sequences: A137411: g_n(11); A265034: g_n(266); A267647: g_n(4); A267648: g_n(5); A271987: g_n(6); A271988: g_n(7); A271989: g_n(8); A271990: g_n(9); A266202: g_n(n); A266203: a(n)=k such that g_k(n)=0;

Sequence in context: A009771 A068197 A079273 * A048469 A367343 A031129

Adjacent sequences: A271988 A271989 A271990 * A271992 A271993 A271994

Keyword

nonn,fini

Author

Natan Arie Consigli, May 22 2016

Status

approved