OFFSET
1
COMMENTS
Characteristic function of A088828.
LINKS
MATHEMATICA
Array[Boole@ And[OddQ@ #, ! IntegerQ@ Sqrt@ #] &, 105] (* Michael De Vlieger, Mar 30 2019 *)
PROG
(PARI) A324908(n) = ((n%2)&&!issquare(n));
CROSSREFS
KEYWORD
nonn
AUTHOR
Antti Karttunen, Mar 28 2019
STATUS
approved