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,1

Comments

For more information see A266201 and A266202.

Links

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

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}]

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.

Sequence in context: A044203 A044584 A111732 * A008511 A130810 A212090

Adjacent sequences: A271989 A271990 A271991 * A271993 A271994 A271995

Keyword

nonn,fini

Author

Natan Arie Consigli, May 24 2016

Status

approved