|
|
A327261
|
|
Numbers > 1 not of the form 2n*k - A319929(n,k) where n and k > 1.
|
|
6
|
|
|
2, 3, 4, 5, 6, 7, 9, 11, 12, 14, 15, 17, 19, 21, 22, 25, 27, 28, 29, 31, 35, 37, 38, 39, 44, 45, 46, 47, 49, 51, 55, 57, 61, 62, 65, 67, 69, 71, 75, 76, 79, 81, 86, 87, 89, 91, 92, 94, 97, 99, 101, 105, 107, 109, 115, 117, 118, 119, 121
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
COMMENTS
|
|
|
LINKS
|
|
|
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
lista(nn) = {my(list = List()); for (n=2, nn, for (k=2, nn\n, listput(list, T(n, k)); ); ); setminus([2..nn], Set(list)); } \\ David Lovler, Apr 30 2021
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|