login
A354819
a(n) = 1 if n is a nonprime squarefree number, otherwise 0.
4
1, 0, 0, 0, 0, 1, 0, 0, 0, 1, 0, 0, 0, 1, 1, 0, 0, 0, 0, 0, 1, 1, 0, 0, 0, 1, 0, 0, 0, 1, 0, 0, 1, 1, 1, 0, 0, 1, 1, 0, 0, 1, 0, 0, 0, 1, 0, 0, 0, 0, 1, 0, 0, 0, 1, 0, 1, 1, 0, 0, 0, 1, 0, 0, 1, 1, 0, 0, 1, 1, 0, 0, 0, 1, 0, 0, 1, 1, 0, 0, 0, 1, 0, 0, 1, 1, 1, 0, 0, 0, 1, 0, 1, 1, 1, 0, 0, 0, 0, 0, 0, 1, 0, 0, 1
OFFSET
1
FORMULA
a(n) = A008966(n) * (1-A010051(n)).
For all n >= 1, a(n) = a(A046523(n)).
For all n > 1, a(n) <= A354353(n).
MATHEMATICA
a[n_] := If[!PrimeQ[n] && SquareFreeQ[n], 1, 0]; Array[a, 100] (* Amiram Eldar, Jun 11 2022 *)
PROG
(PARI) A354819(n) = ((1!=bigomega(n))&&issquarefree(n));
CROSSREFS
Characteristic function of A000469.
Cf. A008966, A010051, A046523, A322075, A354353, A354870 (inverse Möbius transform).
Sequence in context: A339661 A374471 A320656 * A322075 A369255 A288220
KEYWORD
nonn
AUTHOR
Antti Karttunen, Jun 10 2022
STATUS
approved