OFFSET
1,3
COMMENTS
LINKS
FORMULA
EXAMPLE
The top left corner of the array:
n\k | 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17
----+--------------------------------------------------------------------
1 | 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
2 | 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
3 | 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3,
4 | 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4,
5 | 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5,
6 | 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6,
7 | 7, 3, 3, 7, 3, 7, 3, 7, 3, 3, 7, 7, 3, 3, 3, 3, 7,
8 | 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8,
9 | 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9,
10 | 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10,
11 | 11, 7, 7, 11, 7, 11, 7, 11, 7, 11, 7, 11, 11, 7, 7, 11, 11,
12 | 12, 12, 12, 12, 12, 12, 12, 12, 12, 12, 12, 12, 12, 12, 12, 12, 12,
13 | 13, 5, 5, 13, 5, 13, 5, 13, 5, 13, 5, 13, 13, 5, 5, 13, 13,
14 | 14, 6, 6, 14, 6, 14, 6, 14, 6, 6, 14, 14, 6, 6, 6, 6, 14,
15 | 15, 15, 15, 15, 15, 15, 15, 15, 15, 15, 15, 15, 15, 15, 15, 15, 15,
16 | 16, 16, 16, 16, 16, 16, 16, 16, 16, 16, 16, 16, 16, 16, 16, 16, 16,
17 | 17, 17, 17, 17, 17, 17, 17, 17, 17, 17, 17, 17, 17, 17, 17, 17, 17,
18 | 18, 18, 18, 18, 18, 18, 18, 18, 18, 18, 18, 18, 18, 18, 18, 18, 18,
19 | 19, 19, 15, 15, 19, 15, 19, 15, 19, 19, 19, 15, 19, 19, 19, 15, 19,
20 | 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20,
21 | 21, 21, 13, 21, 13, 13, 13, 21, 13, 13, 13, 13, 21, 21, 21, 13, 13,
PROG
(PARI)
up_to = 105;
A048720(b, c) = fromdigits(Vec(Pol(binary(b))*Pol(binary(c)))%2, 2);
A391736_sq(n, k) = forstep(i=1, oo, 2, if(!(A048720(n, i)%i), if(k>1, k--, return(A048720(n, i)/i))));
A391736list(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] = A391736_sq(col, (a-(col-1))))); (v); };
v391736 = A391736list(up_to);
A391736(n) = v391736[n];
CROSSREFS
KEYWORD
AUTHOR
Antti Karttunen, Dec 18 2025
STATUS
approved
