A271990 g_n(9) where g is the weak Goodstein function defined in A266202.

9, 27, 63, 92, 127, 168, 215, 267, 325, 389, 459, 535, 617, 705, 799, 898, 1003, 1114, 1231, 1354, 1483, 1618, 1759, 1906, 2059, 2218, 2383, 2554, 2731, 2914, 3103, 3297, 3497, 3703, 3915, 4133, 4357, 4587, 4823, 5065, 5313, 5567, 5827, 6093, 6365, 6643

Offset

0,1

Comments

For more info see A266201-A266202.

Links

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

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, 9], {n, 0, 45}]

Crossrefs

Cf. A271556: G_n(9).

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

Sequence in context: A254622 A374976 A340119 * A153237 A256327 A011923

Adjacent sequences: A271987 A271988 A271989 * A271991 A271992 A271993

Keyword

nonn,fini

Author

Natan Arie Consigli, May 22 2016

Status

approved