login
Square array read by ascending antidiagonals: A(n,k) = k^Omega(n).
0

%I #18 Jul 02 2022 14:49:01

%S 1,1,1,1,2,1,1,2,3,1,1,4,3,4,1,1,2,9,4,5,1,1,4,3,16,5,6,1,1,2,9,4,25,

%T 6,7,1,1,8,3,16,5,36,7,8,1,1,4,27,4,25,6,49,8,9,1,1,4,9,64,5,36,7,64,

%U 9,10,1,1,2,9,16,125,6,49,8,81,10,11,1,1,8,3,16,25,216,7,64,9,100,11,12,1

%N Square array read by ascending antidiagonals: A(n,k) = k^Omega(n).

%H K. L. Verma, <a href="https://pjm.ppu.edu/sites/default/files/papers/PJM_May_2022_496_to_504.pdf">On an arithmetical functions involving general exponential</a>, Palestine Journal of Mathematics Vol. 11(2)(2022), 496-504.

%F A(n, k) = A051129(A001222(n), k).

%F The columns are totally multiplicative: A(i*j, k) = A(i, k)*A(j, k).

%e Array begins:

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

%e 1, 2, 3, 4, 5, 6, 7, 8, ...

%e 1, 2, 3, 4, 5, 6, 7, 8, ...

%e 1, 4, 9, 16, 25, 36, 49, 64, ...

%e 1, 2, 3, 4, 5, 6, 7, 8, ...

%e 1, 4, 9, 16, 25, 36, 49, 64, ...

%e 1, 2, 3, 4, 5, 6, 7, 8, ...

%e 1, 8, 27, 64, 125, 216, 343, 512, ...

%e ...

%t A[n_,k_]:=k^PrimeOmega[n]; Flatten[Table[A[n-k+1,k],{n,13},{k,n}]]

%Y Cf. A001222, A051129.

%Y Cf. A000012 (n = 1 or k = 1), A061142 (k = 2), A165824 - A165871 (k = 3..50), A176029 (diagonal).

%K nonn,tabl,easy

%O 1,5

%A _Stefano Spezia_, May 22 2022