A354353 a(n) = 1 if n is either a squarefree composite or a power of squarefree composite, otherwise 0.

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

Links

Antti Karttunen, Table of n, a(n) for n = 1..100000

Index entries for characteristic functions

Index entries for sequences computed from exponents in factorization of n

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.

Cf. A001221, A008966, A046523, A227291, A354819.

Sequence in context: A231600 A347579 A280710 * A353669 A363915 A353671

Adjacent sequences: A354350 A354351 A354352 * A354354 A354355 A354356

Keyword

nonn

Author

Antti Karttunen, Jun 10 2022

Status

approved