OFFSET
1,10
COMMENTS
LINKS
EXAMPLE
Array begins:
n\k| 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20
---+---------------------------------------------------------------
1 | 1, 1, 1, 2, 2, 3, 1, 4, 3, 5, 1, 6, 4, 7, 2, 8, 5, 9, 2, 10,
2 | 1, 1, 1, 3, 2, 3, 1, 6, 1, 2, 1, 9, 5, 6, 3, 12, 4, 1, 2, 15,
3 | 1, 1, 1, 3, 3, 1, 1, 9, 1, 3, 1, 1, 2, 8, 3, 18, 5, 1, 3, 12,
4 | 1, 1, 1, 1, 3, 1, 1, 1, 1, 3, 1, 1, 3, 12, 1, 27, 2, 1, 3, 17,
5 | 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 3, 18, 1, 21, 3, 1, 1, 4,
6 | 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 27, 1, 16, 3, 1, 1, 5,
7 | 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 21, 1, 23, 1, 1, 1, 2,
8 | 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 16, 1, 18, 1, 1, 1, 3,
9 | 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 23, 1, 26, 1, 1, 1, 3,
10 | 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 18, 1, 39, 1, 1, 1, 1,
11 | 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 26, 1, 30, 1, 1, 1, 1,
12 | 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 39, 1, 44, 1, 1, 1, 1,
13 | 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 30, 1, 66, 1, 1, 1, 1,
14 | 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 44, 1, 99, 1, 1, 1, 1,
15 | 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 66, 1, 75, 1, 1, 1, 1,
16 | 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 99, 1, 28, 1, 1, 1, 1,
17 | 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 75, 1, 42, 1, 1, 1, 1,
18 | 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 28, 1, 63, 1, 1, 1, 1,
19 | 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 42, 1, 48, 1, 1, 1, 1,
20 | 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 63, 1, 71, 1, 1, 1, 1,
PROG
(PARI)
up_to = 105;
A000265(n) = (n>>valuation(n, 2));
R(n) = { n = 1+3*n; n>>valuation(n, 2); };
A372283sq(n, k) = if(1==n, 2*k-1, R(A372283sq(n-1, k)));
A372287sq(n, k) = A371092(A372283sq(n, k));
A372287list(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] = A372287sq((a-(col-1)), col))); (v); };
v372287 = A372287list(up_to);
A372287(n) = v372287[n];
CROSSREFS
KEYWORD
nonn,tabl
AUTHOR
Antti Karttunen, Apr 28 2024
STATUS
approved