A358769 a(n) = 1 if n is of the form p * m^2, where p is a prime and m is a natural number >= 1, otherwise 0.

0, 1, 1, 0, 1, 0, 1, 1, 0, 0, 1, 1, 1, 0, 0, 0, 1, 1, 1, 1, 0, 0, 1, 0, 0, 0, 1, 1, 1, 0, 1, 1, 0, 0, 0, 0, 1, 0, 0, 0, 1, 0, 1, 1, 1, 0, 1, 1, 0, 1, 0, 1, 1, 0, 0, 0, 0, 0, 1, 0, 1, 0, 1, 0, 0, 0, 1, 1, 0, 0, 1, 1, 1, 0, 1, 1, 0, 0, 1, 1, 0, 0, 1, 0, 0, 0, 0, 0, 1, 0, 0, 1, 0, 0, 0, 0, 1, 1, 1, 0, 1, 0, 1, 0, 0, 0, 1, 1, 1, 0, 0, 1, 1, 0, 0, 1, 1, 0, 0, 0, 0, 0, 0, 1, 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

a(n) = A010051(A007913(n)).

a(n) >= A010051(n).

Prog

(PARI) A358769(n) = isprime(core(n));

Crossrefs

Characteristic function of A229125.

Cf. A007913, A010051, A358770.

Sequence in context: A284653 A359158 A099104 * A066829 A194664 A285975

Adjacent sequences: A358766 A358767 A358768 * A358770 A358771 A358772

Keyword

nonn

Author

Antti Karttunen, Dec 01 2022

Status

approved