login
A324908
a(n) = 1 if n is an odd number which is not a square, 0 otherwise.
3
0, 0, 1, 0, 1, 0, 1, 0, 0, 0, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 0, 0, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 0, 0, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 0, 0, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 1
OFFSET
1
COMMENTS
Characteristic function of A088828.
FORMULA
a(n) = A000035(n)*(1-A010052(n)).
a(n) = A007814(1+A318458(n)).
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