OFFSET
1,1
EXAMPLE
Array begins:
n\k| 1 2 3 4 5 6 7
---+--------------------------------------------------------------------
1 | 3, 7, 11, 15, 19, 23, 27,
2 | 21, 45, 69, 93, 117, 141, 165,
3 | 5461, 1109, 3413, 2261, 11605, 3413, 8021,
4 | 357913941, 873813, 22369621, 873813, 72701269, 22369621, 12408149,
PROG
(PARI)
up_to = 105;
A371094(n) = { my(m=1+3*n, e=valuation(m, 2)); ((m*(2^e)) + (((4^e)-1)/3)); };
A371102sq(n, k) = if(1==n, 4*k-1, A371094(A371102sq(n-1, k)));
A371102list(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] = A371102sq((a-(col-1)), col))); (v); };
v371102 = A371102list(up_to);
A371102(n) = v371102[n];
CROSSREFS
KEYWORD
AUTHOR
Antti Karttunen, Apr 21 2024
STATUS
approved