A354034 a(n) = 1 if n is an even number or a square, otherwise 0.

1, 1, 1, 0, 1, 0, 1, 0, 1, 1, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 1, 1, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 1, 1, 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, 1, 1, 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, 1, 0, 1, 0, 1, 0, 1, 0, 1, 1

Offset

0

Links

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

Index entries for characteristic functions

Formula

a(n) = A059841(n) + A098108(n).

For n >= 1, a(n) = 1 - A324908(n).

Mathematica

a[n_] := If[EvenQ[n] || IntegerQ[Sqrt[n]], 1, 0]; Array[a, 100, 0] (* Amiram Eldar, May 16 2022 *)

Prog

(PARI) A354034(n) = (!(n%2) || issquare(n));

Crossrefs

Characteristic function of A176693.

Cf. A059841, A098108, A324908 (binary complement).

Sequence in context: A359779 A373834 A132194 * A174897 A316441 A190938

Adjacent sequences: A354031 A354032 A354033 * A354035 A354036 A354037

Keyword

nonn

Author

Antti Karttunen, May 16 2022

Status

approved