OFFSET
1,6
MATHEMATICA
ev = Range[2, 435, 2]; i = 2; While[ i <= (len = Length@ev) && (k = ev[[i]]) <= len, ev = Drop[ev, {k, len, k}]; i++ ]; od = Range[1, 476, 2]; i = 2; While[ i <= (len = Length@od) && (k = od[[i]]) <= len, od = Drop[od, {k, len, k}]; i++ ]; od - ev
CROSSREFS
KEYWORD
easy,sign
AUTHOR
Robert G. Wilson v, May 11 2006
STATUS
approved