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

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

Formula

a(n) = A035263(n) * A358769(n).

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

Prog

(PARI) A358770(n) = (isprime(core(n))&&(core(n)%2));

Crossrefs

Characteristic function of A249370.

Cf. A000035, A007913, A010051, A035263, A358769.

Sequence in context: A353638 A324908 A353760 * A022925 A327211 A348327

Adjacent sequences: A358767 A358768 A358769 * A358771 A358772 A358773

Keyword

nonn

Author

Antti Karttunen, Dec 01 2022

Status

approved