A336646 a(n) = n - A326144(n).

0, 1, 1, 3, 1, 6, 1, 7, 8, 8, 1, 10, 1, 10, 9, 15, 1, 15, 1, 18, 11, 14, 1, 18, 24, 16, 25, 14, 1, 18, 1, 31, 15, 20, 13, 35, 1, 22, 17, 30, 1, 30, 1, 42, 39, 26, 1, 34, 48, 49, 21, 50, 1, 42, 17, 54, 23, 32, 1, 54, 1, 34, 61, 63, 19, 54, 1, 66, 27, 66, 1, 69, 1, 40, 73, 74, 19, 66, 1, 78, 80, 44, 1, 70, 23, 46, 33, 86

Offset

1,4

Links

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

Antti Karttunen, Data supplement: n, a(n) computed for n = 1..65537

Prog

(PARI)
A007947(n) = factorback(factorint(n)[, 1]);
A066503(n) = (n - A007947(n));
A326143(n) = (sigma(n)-A007947(n)-n);
A326144(n) = gcd(A066503(n), A326143(n));
A336646(n) = (n - A326144(n));

Crossrefs

Cf. A007947, A066503, A326143, A326144.

Cf. A326145 (positions where coincides with A007947).

Cf. A336555 (positions where differs from A336647).

Cf. also A336645, A336647.

Sequence in context: A318501 A318325 A300244 * A336647 A336645 A349910

Adjacent sequences: A336643 A336644 A336645 * A336647 A336648 A336649

Keyword

nonn

Author

Antti Karttunen, Jul 30 2020

Status

approved