OFFSET
1,1
COMMENTS
LINKS
David Lovler, Table of n, a(n) for n = 1..58
PROG
(PARI) T319929(n, k) = if (n%2, if (k%2, n+k-1, k), if (k%2, n, 0));
T(n, k) = 2*n*k - T319929(n, k); \\ A327259
list(nn) = {my(list = List()); for (n=2, nn, for (k=2, nn\n, listput(list, T(n, k)); ); ); setminus([1..nn], Set(list)); } \\ A327261
lista(nn) = {my(v=Vec(list(nn))); for (m=5, #v-1, my(x=v[m]); if (vecsearch(v, x-2) && vecsearch(v, x-1) && vecsearch(v, x+1) && vecsearch(v, x+2), print1(x, ", ")); ); }
CROSSREFS
KEYWORD
nonn
AUTHOR
David Lovler, Jun 15 2021
STATUS
approved