OFFSET
1,2
LINKS
EXAMPLE
The top left corner of the array:
n\k | 1 2 3 4 5 6 7 8 9 10 11 12
----+------------------------------------------------------------
1 | 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12
2 | 2, 4, 6, 8, 10, 12, 14, 16, 18, 20, 22, 24
3 | 7, 14, 9, 28, 27, 18, 21, 56, 63, 54, 49, 36
4 | 4, 8, 12, 16, 20, 24, 28, 32, 36, 40, 44, 48
5 | 13, 26, 23, 52, 57, 46, 35, 104, 101, 114, 127, 92
6 | 14, 28, 18, 56, 54, 36, 42, 112, 126, 108, 98, 72
7 | 11, 22, 29, 44, 39, 58, 49, 88, 83, 78, 69, 116
8 | 8, 16, 24, 32, 40, 48, 56, 64, 72, 80, 88, 96
9 | 25, 50, 43, 100, 125, 86, 79, 200, 209, 250, 227, 172
10 | 26, 52, 46, 104, 114, 92, 70, 208, 202, 228, 254, 184
11 | 31, 62, 33, 124, 99, 66, 93, 248, 231, 198, 217, 132
12 | 28, 56, 36, 112, 108, 72, 84, 224, 252, 216, 196, 144
13 | 21, 42, 63, 84, 65, 126, 107, 168, 189, 130, 151, 252
14 | 22, 44, 58, 88, 78, 116, 98, 176, 166, 156, 138, 232
15 | 19, 38, 53, 76, 95, 106, 121, 152, 139, 190, 173, 212
16 | 16, 32, 48, 64, 80, 96, 112, 128, 144, 160, 176, 192
17 | 49, 98, 83, 196, 245, 166, 151, 392, 441, 490, 475, 332
18 | 50, 100, 86, 200, 250, 172, 158, 400, 418, 500, 454, 344
19 | 55, 110, 89, 220, 235, 178, 133, 440, 399, 470, 481, 356
PROG
(PARI)
up_to = 10440;
A048720(b, c) = fromdigits(Vec(Pol(binary(b))*Pol(binary(c)))%2, 2);
A065621(n) = bitxor(n-1, n+n-1);
A277320list(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] = A277320_sq(col, (a-(col-1))))); (v); };
v277320 = A277320list(up_to);
A277320(n) = v277320[n]; \\ Antti Karttunen, Dec 06 2025
(Scheme)
(define (A277320bi row col) (A048720bi (A065621 row) col))
CROSSREFS
KEYWORD
AUTHOR
Antti Karttunen, Nov 01 2016
STATUS
approved
