A271992 g_n(16) where g is the weak Goodstein function defined in A266202.

16, 80, 169, 310, 515, 795, 1163, 1631, 2211, 2915, 3755, 4742, 5889, 7208, 8711, 10410, 12317, 14444, 16803, 19406, 22265, 25392, 28799, 32472, 36447, 40736, 45351, 50304, 55607, 61272, 67311, 73736, 80559, 87792, 95447, 103536, 112071

Offset: 0

Author

Natan Arie Consigli, May 24 2016

Keywords

• nonn
• fini

Comments

For more information see A266201 and A266202.

Crossrefs

Cf. A271557: G_n(10).

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

Programs

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, 16], {n, 0, 36}]