OFFSET
1,2
COMMENTS
LINKS
K. D. Bajpai, Table of n, a(n) for n = 1..10000
MATHEMATICA
upto[n_] := Select[Range[n], Tan[#] > 0 &]
A327422={}; Do[ If[Tan[n] > 0, AppendTo[A327422, n]], {n, 200}]; A327422 (* K. D. Bajpai, Dec 15 2019 *)
Select[Range[130], Tan[#]>0&] (* Harvey P. Dale, Aug 26 2021 *)
PROG
(PARI) A327422_up_to_n(n) = my(v=vector(n, k, k)); select(k->tan(k)>0, v)
(Magma) [n : n in[1..300]|Tan(n) gt 0]; // K. D. Bajpai, Dec 15 2019
CROSSREFS
KEYWORD
nonn
AUTHOR
Jianing Song, Nov 29 2019
STATUS
approved