OFFSET
1,1
LINKS
EXAMPLE
The top left corner of the array:
k= | 1 2 3 4 5 6 7 8 9 10 11 12
2k= | 2 4 6 8 10 12 14 16 18 20 22 24
----+------------------------------------------------------------------------------
1 | 3, 5, 1, 9, 6, 2, 9, 17, 5, 9, 15, 1,
2 | 5, 14, 7, 41, 31, 19, 17, 122, 101, 85, 61, 11,
3 | 9, 44, 57, 219, 93, 277, 111, 1094, 393, 453, 147, 1377,
4 | 13, 90, 135, 629, 23, 933, 213, 4402, 211, 159, 239, 6519,
5 | 21, 230, 261, 2529, 345, 2857, 387, 27818, 3381, 3777, 471, 31413,
6 | 25, 324, 411, 4211, 461, 5325, 561, 54742, 6973, 5973, 711, 4071,
7 | 33, 560, 609, 9519, 741, 10333, 939, 161822, 11553, 12573, 1005, 175641,
8 | 37, 702, 831, 13337, 1053, 15765, 1127, 253402, 19093, 19977, 71, 299511,
9 | 45, 1034, 1281, 23781, 1371, 29433, 1641, 546962, 37125, 31501, 1821, 676929,
Columns 60 and 90:
k= | 60 90
2k= | 120 180
----+------------------------------
1 | 0, -1,
2 | 61, 1501,
3 | 13899, 19221,
4 | 11421, 2553,
5 | 513525, 604797,
6 | 74829, 1660317,
7 | 3935343, 4391493,
8 | 8512059, 10293513,
9 | 20603199, 25961461,
PROG
(PARI)
up_to = 78;
A388283(n) = numerator((3*n - sigma(n))/n);
A246278sq(row, col) = if(1==row, 2*col, my(f = factor(2*col)); for(i=1, #f~, f[i, 1] = prime(primepi(f[i, 1])+(row-1))); factorback(f));
A388284sq(row, col) = A388283(A246278sq(row, col));
A388284list(up_to) = { my(v = vector(up_to), i=0); for(a=1, oo, for(col=1, a, i++; if(i > up_to, return(v)); v[i] = A388284sq(col, (a-(col-1))))); (v); };
v388284 = A388284list(up_to);
A388284(n) = v388284[n];
CROSSREFS
KEYWORD
AUTHOR
Antti Karttunen, Sep 21 2025
STATUS
approved
