OFFSET
1,2
EXAMPLE
Array begins:
n\k| 1 2 3 4 5 6
---+--------------------------------------------------------------------
1 | 1, 9, 17, 25, 33, 41,
2 | 21, 117, 213, 309, 405, 501,
3 | 5461, 11605, 87381, 30037, 79189, 48469,
4 | 357913941, 72701269, 91625968981, 760567125, 1968526677, 299193685,
PROG
(PARI)
up_to = 28;
A371094(n) = { my(m=1+3*n, e=valuation(m, 2)); ((m*(2^e)) + (((4^e)-1)/3)); };
A371096sq(n, k) = if(1==n, 8*k-7, A371094(A371096sq(n-1, k)));
A371096list(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] = A371096sq((a-(col-1)), col))); (v); };
v371096 = A371096list(up_to);
A371096(n) = v371096[n];
CROSSREFS
KEYWORD
AUTHOR
Antti Karttunen, Apr 21 2024
STATUS
approved