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, 2, 6, 4, 30, 12, 210, 8, 36, 60, ...
1 | 1, 3, 15, 9, 105, 45, 1155, 27, 225, 315, ...
2 | 1, 5, 35, 25, 385, 175, 5005, 125, 1225, 1925, ...
3 | 1, 7, 77, 49, 1001, 539, 17017, 343, 5929, 7007, ...
4 | 1, 11, 143, 121, 2431, 1573, 46189, 1331, 20449, 26741, ...
5 | 1, 13, 221, 169, 4199, 2873, 96577, 2197, 48841, 54587, ...
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]); };
A337470list(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] = A337470sq(b-1, (a-(b-1))))); (v); };
v337470 = A337470list(up_to);
A337470(n) = v337470[1+n];
CROSSREFS
KEYWORD
nonn,tabl
AUTHOR
Antti Karttunen, Aug 28 2020
STATUS
approved