login
A354353
a(n) = 1 if n is either a squarefree composite or a power of squarefree composite, otherwise 0.
2
0, 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, 1, 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, 1, 0, 1, 0, 0, 1
OFFSET
1
FORMULA
For all n >= 1, a(n) = a(A046523(n)).
For all n > 1, a(n) >= A354819(n).
MATHEMATICA
a[1] = 0; a[n_] := If[Length[e = FactorInteger[n][[;; , 2]]] > 1 && SameQ @@ e, 1, 0]; Array[a, 105] (* Amiram Eldar, Jun 11 2022 *)
PROG
(PARI)
A354819(n) = ((1!=bigomega(n))&&issquarefree(n));
A354353(n) = ((n>1) && (A354819(n) || (ispower(n, , &k) && A354819(k))));
CROSSREFS
Characteristic function of A182853.
Sequence in context: A231600 A347579 A280710 * A353669 A363915 A353671
KEYWORD
nonn
AUTHOR
Antti Karttunen, Jun 10 2022
STATUS
approved