OFFSET
0,2
COMMENTS
Array is read by descending antidiagonals with n >= 0 and k >= 1 ranging as: (0, 1), (0, 2), (1, 1), (0, 3), (1, 2), (2, 1), (0, 4), (1, 3), (2, 2), (3, 1), ...
LINKS
EXAMPLE
The top left corner of the array begins as:
n/k | 1 2 3 4 5 6 7 8 9 10
----|--------------------------------------------------------------
0 | 1, 3, 12, 7, 72, 28, 576, 15, 91, 168, ...
1 | 1, 4, 24, 13, 192, 78, 2304, 40, 403, 624, ...
2 | 1, 6, 48, 31, 576, 248, 8064, 156, 1767, 2976, ...
3 | 1, 8, 96, 57, 1344, 684, 24192, 400, 7581, 9576, ...
4 | 1, 12, 168, 133, 3024, 1862, 60480, 1464, 24339, 33516, ...
5 | 1, 14, 252, 183, 5040, 3294, 120960, 2380, 56181, 65880, ...
etc.
PROG
(PARI)
up_to = 105-1; \\ Or 78-1.
Ashifted_primorial(n, d) = prod(i=1, primepi(n), prime(i+d));
A337470sq(n, k) = { my(f=factor(k)); prod(i=1, #f~, Ashifted_primorial(f[i, 1], n)^f[i, 2]); };
A337472sq(n, k) = sigma(A337470sq(n, k));
A337472list(up_to) = { my(v = vector(1+up_to), i=0); for(a=0, oo, for(b=1, a, i++; if(i > #v, return(v)); v[i] = A337472sq(b-1, (a-(b-1))))); (v); };
v337472 = A337472list(up_to);
A337472(n) = v337472[1+n];
CROSSREFS
KEYWORD
nonn,tabl
AUTHOR
Antti Karttunen, Aug 28 2020
STATUS
approved