login
Square array A(n,k), n >= 1, k >= 0, read by antidiagonals, where A(n,k) is Sum_{d|n} d^(d^k).
4

%I #20 May 11 2021 01:54:17

%S 1,1,3,1,5,4,1,17,28,7,1,257,19684,261,6,1,65537,7625597484988,

%T 4294967313,3126,12,1,4294967297,

%U 443426488243037769948249630619149892804,340282366920938463463374607431768211713,298023223876953126,46688,8

%N Square array A(n,k), n >= 1, k >= 0, read by antidiagonals, where A(n,k) is Sum_{d|n} d^(d^k).

%H Seiichi Manyama, <a href="/A308674/b308674.txt">Antidiagonals n = 1..9, flattened</a>

%F L.g.f. of column k: -log(Product_{j>=1} (1 - x^j)^(j^(j^k-1))).

%e Square array begins:

%e 1, 1, 1, 1, ...

%e 3, 5, 17, 257, ...

%e 4, 28, 19684, 7625597484988, ...

%e 7, 261, 4294967313, 340282366920938463463374607431768211713, ...

%t T[n_, k_] := DivisorSum[n, #^(#^k) &]; Table[T[k, n - k], {n, 1, 7}, {k, 1, n}] // Flatten (* _Amiram Eldar_, May 11 2021 *)

%Y Columns k=0..3 give A000203, A062796, A308671, A308672.

%Y Cf. A308676.

%K nonn,tabl

%O 1,3

%A _Seiichi Manyama_, Jun 16 2019