|
%I #9 Sep 05 2019 10:00:40
%S 4,8,9,16,64,81,256,1024,3125,15625,46656,279936,823543,5764801,
%T 16777216,134217728,387420489,3486784401,10000000000,100000000000,
%U 285311670611,3138428376721,8916100448256,106993205379072,302875106592253,3937376385699289,11112006825558016,155568095557812224
%N a(n) = A162897(n)^A162897(n+1).
%C a(n+1) > a(n), for all n.
%o (PARI) getnew(va, n) = {my(x = 2, y = va[n-2]^va[n-1]); while (va[n-1]^x <= y, x++); x;}
%o lista(nn) = {my(va = vector(nn)); va[1] = 2; va[2] = 2; for (n=3, nn, va[n] = getnew(va, n);); vector(nn-1, k, va[k]^va[k+1]);} \\ _Michel Marcus_, Sep 05 2019
%Y Cf. A162897.
%K nonn
%O 1,1
%A _Leroy Quet_, Jul 16 2009
%E More terms from _Michel Marcus_, Sep 05 2019
|
