OFFSET
1,1
COMMENTS
MATHEMATICA
upto[n_] := Select[Range[n], Tan[#] < 0 &]
PROG
(PARI) A327423_up_to_n(n) = my(v=vector(n, k, k)); select(k->tan(k)<0, v)
CROSSREFS
KEYWORD
nonn
AUTHOR
Jianing Song, Nov 29 2019
STATUS
approved