proposed
approved
editing
{1}~Join~Array[Boole[AllTrue[FactorInteger[#][[All, -1]], PrimeQ]] &, 104, 2] (* Michael De Vlieger, Nov 17 2017 *)
Cf. A010051, A056166, A095683, A095691, A101436, A125070, A126849.
a(n) = 1 iff A125070(n) = 0.
Cf. A010051, A056166, A101436, A125070, A126849.
Antti Karttunen, <a href="/A293449/b293449.txt">Table of n, a(n) for n = 1..65537</a>
nonn,mult,changed
Characteristic function for A056166, numbers that have no nonprime exponents present in their prime factorization n = p_1^e_1 * ... * p_k^e_k.
Multiplicative with a(p^e) = A010051(e).
a(1) = 1, for n > 1, a(n) = A010051(A067029(n)) * a(A028234(n)).
(Scheme) (define (A293449 n) (if (= 1 n) n (* (A010051 (A067029 n)) (A293449 (A028234 n)))))
Cf. A010051, A056166, A101436, A126849.
Characteristic function for numbers that have no nonprime exponents present in their prime factorization n = p_1^e_1 * ... * p_k * ^e_k.
Cf. A010051, A101436, A126849.