login
A336646
a(n) = n - A326144(n).
2
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
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. 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
KEYWORD
nonn
AUTHOR
Antti Karttunen, Jul 30 2020
STATUS
approved