A373247 a(n) = n mod A181819(n), where A181819(n) is the prime shadow of n.

0, 0, 1, 1, 1, 2, 1, 3, 0, 2, 1, 0, 1, 2, 3, 2, 1, 0, 1, 2, 1, 2, 1, 4, 1, 2, 2, 4, 1, 6, 1, 10, 1, 2, 3, 0, 1, 2, 3, 0, 1, 2, 1, 2, 3, 2, 1, 6, 1, 2, 3, 4, 1, 4, 3, 6, 1, 2, 1, 0, 1, 2, 3, 12, 1, 2, 1, 2, 1, 6, 1, 12, 1, 2, 3, 4, 1, 6, 1, 10, 4, 2, 1, 0, 1, 2, 3, 8, 1, 6, 3, 2, 1, 2, 3, 8, 1, 2, 3, 1, 1, 6, 1, 4, 1

Offset

1,6

Links

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

Prog

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

Crossrefs

Cf. A181819, A373246.

Cf. A325755 (positions of 0's), A353566 (their characteristic function).

Sequence in context: A199580 A035215 A147654 * A321377 A071467 A125073

Adjacent sequences: A373244 A373245 A373246 * A373248 A373249 A373250

Keyword

nonn

Author

Antti Karttunen, May 29 2024

Status

approved