A353566 a(n) = 1 if n is a multiple of its prime shadow A181819(n), and 0 otherwise.

1, 1, 0, 0, 0, 0, 0, 0, 1, 0, 0, 1, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 1

Offset

1

Links

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

Index entries for characteristic functions

Formula

a(n) = 1 if 0 == n mod A181819(n), and 0 otherwise.

Prog

(PARI) A353566(n) = (0==(n%factorback(apply(e->prime(e), (factor(n)[, 2])))));

Crossrefs

Characteristic function of A325755.

Cf. A181819, A353567 (inverse Möbius transform).

Sequence in context: A359774 A204220 A281814 * A279484 A279329 A359430

Adjacent sequences: A353563 A353564 A353565 * A353567 A353568 A353569

Keyword

nonn

Author

Antti Karttunen, Apr 29 2022

Status

approved