OFFSET
0,1
LINKS
Nicholas Matteo, Table of n, a(n) for n = 0..10000
R. L. Goodstein, On the Restricted Ordinal Theorem, The Journal of Symbolic Logic 9, no. 2 (1944), 33-41.
Wikipedia, Goodstein sequence
EXAMPLE
G_1(6) = B_2(6) - 1 = B_2(2^2 + 2) - 1 = 3^3 + 3 - 1 = 29;
G_2(6) = B_3(G_1(6)) - 1 = B_3(3^3 + 2) - 1 = 4^4 + 2 - 1 = 257;
G_3(6) = B_4(G_2(6)) - 1 = 5^5 + 1 - 1 = 3125;
G_4(6) = B_5(G_3(6)) - 1 = 6^6 - 1 = 46655;
G_5(6) = B_6(G_4(6)) - 1 = 5*7^5 + 5*7^4 + 5*7^3 + 5*7^2 + 5*7 + 5 - 1 = 98039.
PROG
(PARI) lista(nn) = {print1(a = 6, ", "); for (n=2, nn, pd = Pol(digits(a, n)); q = sum(k=0, poldegree(pd), if (c=polcoeff(pd, k), c*x^subst(Pol(digits(k, n)), x, n+1), 0)); a = subst(q, x, n+1) - 1; print1(a, ", "); ); } \\ Michel Marcus, Feb 22 2016
CROSSREFS
KEYWORD
nonn,fini
AUTHOR
Natan Arie Consigli, Jan 23 2016
STATUS
approved