A345474 Given the associative array U(n,k) described below, numbers m > 7 such that [m-5..m+5] are not in U(n,k) (excluding the first row and column).
8, 106, 26874, 105834, 1080234
Offset: 1
Examples
Array U(0;n,k) = A319929(n,k) begins: 1 2 3 4 5 6 7 8 9 10 2 0 2 0 2 0 2 0 2 0 3 2 5 4 7 6 9 8 11 10 4 0 4 0 4 0 4 0 4 0 5 2 7 4 9 6 11 8 13 10 6 0 6 0 6 0 6 0 6 0 7 2 9 4 11 6 13 8 15 10 8 0 8 0 8 0 8 0 8 0 9 2 11 4 13 6 15 8 17 10 10 0 10 0 10 0 10 0 10 0 Array U(n,k) = U(7;n,k) begins: 1 2 3 4 5 6 7 8 9 10 2 14 16 28 30 42 44 56 58 70 3 16 19 32 35 48 51 64 67 80 4 28 32 56 60 84 88 112 116 140 5 30 35 60 65 90 95 120 125 150 6 42 48 84 90 126 132 168 174 210 7 44 51 88 95 132 139 176 183 220 8 56 64 112 120 168 176 224 232 280 9 58 67 116 125 174 183 232 241 290 10 70 80 140 150 210 220 280 290 350 Numbers up to 200 not in U(n,k) (excluding row 1 and column 1): 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 15, 17, 18, 20, 21, 22, 23, 24, 25, 26, 27, 29, 31, 33, 34, 36, 37, 38, 39, 40, 41, 43, 45, 46, 47, 49, 50, 52, 53, 54, 55, 57, 59, 61, 62, 63, 66, 68, 69, 71, 73, 74, 75, 76, 77, 78, 79, 81, 82, 85, 87, 89, 91, 92, 93, 94, 97, 101, 102, 103, 104, 105, 106, 107, 108, 109, 110, 111, 113, 117, 118, 119, 121, 122, 123, 124, 127, 129, 130, 133, 134, 135, 136, 137, 138, 141, 143, 145, 146, 148, 149, 151, 152, 153, 157, 158, 159, 161, 162, 164, 165, 166, 167, 169, 171, 173, 175, 177, 178, 181, 186, 187, 188, 189, 190, 191, 193, 194, 197, 199.
Links
- David Lovler, Terms for i <= 140
Programs
-
PARI
T319929(n, k) = if (n%2, if (k%2, n+k-1, k), if (k%2, n, 0)); U(n, k) = (7*n*k - 5*T319929(n, k))/2; list(nn) = {my(list = List()); for (n=2, nn, for (k=2, nn\n, listput(list, U(n, k)); ); ); setminus([1..nn], Set(list)); } lista(nn) = {my(v=Vec(list(nn))); for (m=8, #v-1, my(x=v[m]); if (#setintersect(v, [x-5..x+5])==11, print1(x, ", ")); ); }
-
PARI
/* This program computes terms of sequences based on U(i;n,k) for i >= 2. */ T319929(n, k) = if (n%2, if (k%2, n+k-1, k), if (k%2, n, 0)); U(n, k) = (i*n*k - (i-2)*T319929(n, k))/2; \\ U(i; n, k) list(nn) = {my(list = List()); for (n=2, nn, for (k=2, nn\n, listput(list, U(n, k)); ); ); setminus([1..nn], Set(list)); } lista(nn) = {my(v=Vec(list(nn))); for (m=i+1, #v-1, my(x=if(Mod(v[m],i)==1,v[m])); if (#setintersect(v,[x-i+2..x+i-2])==2*i-3, print1(x, ", ")); ); } /* Type for example: i=4; lista(10^6) */
Comments