OFFSET
1
LINKS
Antti Karttunen, Table of n, a(n) for n = 1..100000
FORMULA
MATHEMATICA
a[n_] := Module[{e = IntegerExponent[n, 2], o}, o = n/2^e; sqf = SquareFreeQ[o]; If[(e > 1 && sqf) || (e < 2 && ! sqf), 1, 0]]; Array[a, 100] (* Amiram Eldar, Jan 24 2023 *)
PROG
CROSSREFS
Characteristic function of A359468, numbers that are either multiples of 4 with their odd part squarefree, or that are not multiples of 4 and not squarefree.
KEYWORD
nonn
AUTHOR
Antti Karttunen, Jan 02 2023
STATUS
approved