A324908 a(n) = 1 if n is an odd number which is not a square, 0 otherwise.

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.

Links

Antti Karttunen, Table of n, a(n) for n = 1..65537

Index entries for characteristic functions

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

Cf. A000035, A007814, A010052, A088828, A318458, A324906.

Sequence in context: A151763 A353558 A353638 * A353760 A358770 A022925

Adjacent sequences: A324905 A324906 A324907 * A324909 A324910 A324911

Keyword

nonn

Author

Antti Karttunen, Mar 28 2019

Status

approved