OFFSET
1
LINKS
FORMULA
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
KEYWORD
nonn
AUTHOR
Antti Karttunen, Jun 10 2022
STATUS
approved