OFFSET
1,4
LINKS
EXAMPLE
The top left corner of the array:
n p_n |k=1, 2, 3, 4, 5, 6, 7, 8, 9, 10
---------+----------------------------------------------------------------------
1 -> 2 | 1, 1, 4, 0, 24, -8, 104, -48, 352, 80,
2 -> 3 | 1, -1, 4, -16, 40, -88, 184, -400, 544, -784,
3 -> 5 | 1, -5, 4, -48, 72, -248, 344, -1104, 928, -2512,
4 -> 7 | 1, -13, 4, -112, 136, -568, 664, -2512, 1696, -5968,
5 -> 11 | 1, -29, 4, -240, 264, -1208, 1304, -5328, 3232, -12880,
6 -> 13 | 1, -61, 4, -496, 520, -2488, 2584, -10960, 6304, -26704,
7 -> 17 | 1, -125, 4, -1008, 1032, -5048, 5144, -22224, 12448, -54352,
8 -> 19 | 1, -253, 4, -2032, 2056, -10168, 10264, -44752, 24736, -109648,
9 -> 23 | 1, -509, 4, -4080, 4104, -20408, 20504, -89808, 49312, -220240,
10 -> 29 | 1, -1021, 4, -8176, 8200, -40888, 40984, -179920, 98464, -441424,
11 -> 31 | 1, -2045, 4, -16368, 16392, -81848, 81944, -360144, 196768, -883792,
PROG
(PARI)
up_to = 105;
A329890(n) = if(1==n, 1, sigma((2^n)-1)-sigma((2^(n-1))-1));
A329637sq(n, k) = ((2^(n+k-1)) - (((2^n)-1) * A329890(k)));
A329637list(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] = A329637sq(col, (a-(col-1))))); (v); };
v329637 = A329637list(up_to);
A329637(n) = v329637[n];
CROSSREFS
KEYWORD
sign,tabl
AUTHOR
Antti Karttunen, Nov 22 2019
STATUS
approved