OFFSET
1
LINKS
FORMULA
MATHEMATICA
A374130[n_] := If[n == 1, 0, Boole[BitXor @@ FactorInteger[n][[All, 2]] == 1]];
Array[A374130, 100] (* Paolo Xausa, Jul 16 2024 *)
PROG
CROSSREFS
Characteristic function of A374595.
KEYWORD
nonn
AUTHOR
Antti Karttunen and Peter Munn, Jul 14 2024
STATUS
approved