%I #6 Jan 11 2020 15:57:47
%S 10,29,65,125,215,284,363,452,551,660,779,907,1045,1193,1351,1519,
%T 1697,1885,2083,2291,2509,2737,2975,3222,3479,3746,4023,4310,4607,
%U 4914,5231,5558,5895,6242,6599,6966,7343,7730,8127,8534,8951
%N g_n(10) where g is the weak Goodstein function defined in A266202.
%C For more info see A266201-A266202.
%t 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}]
%Y Cf. A271557: G_n(10).
%Y 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;
%K nonn,fini
%O 0,1
%A _Natan Arie Consigli_, May 22 2016