|
|
A271555
|
|
a(n) = G_n(8), where G is the Goodstein function defined in A266201.
|
|
12
|
|
|
8, 80, 553, 6310, 93395, 1647195, 33554571, 774841151, 20000000211, 570623341475, 17832200896811, 605750213184854, 22224013651116433, 875787780761719208, 36893488147419103751, 1654480523772673528938, 78692816150593075151501, 3956839311320627178248684
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
0,1
|
|
LINKS
|
|
|
EXAMPLE
|
G_1(8) = B_2(8)-1 = B_2(2^(2+1))-1 = 3^(3+1)-1 = 80;
G_2(8) = B_3(2*3^3+2*3^2+2*3+2)-1 = 2*4^4+2*4^2+2*4+2-1 = 553;
G_3(8) = B_4(2*4^4+2*4^2+2*4+1)-1 = 2*5^5+2*5^2+2*5+1-1 = 6310;
G_4(8) = B_5(2*5^5+2*5^2+2*5)-1 = 2*6^6+2*6^2+2*6-1 = 93395;
G_5(8) = B_6(2*6^6+2*6^2+6+5)-1 = 2*7^7+2*7^2+7+5-1 = 1647195;
G_6(8) = B_7(2*7^7+2*7^2+7+4)-1 = 2*8^8+2*8^2+8+4-1 = 33554571;
G_7(8) = B_8(2*8^8+2*8^2+8+3)-1 = 2*9^9+2*9^2+9+3-1 = 774841151.
|
|
PROG
|
(PARI) lista(nn) = {print1(a = 8, ", "); 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, ", "); ); }
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,fini
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|