login
A346244
a(n) = n - A342001(n).
2
1, 1, 2, 2, 4, 1, 6, 5, 7, 3, 10, 4, 12, 5, 7, 12, 16, 11, 18, 8, 11, 9, 22, 13, 23, 11, 24, 12, 28, -1, 30, 27, 19, 15, 23, 26, 36, 17, 23, 23, 40, 1, 42, 20, 32, 21, 46, 34, 47, 41, 31, 24, 52, 45, 39, 33, 35, 27, 58, 14, 60, 29, 46, 58, 47, 5, 66, 32, 43, 11, 70, 59, 72, 35, 64, 36, 59, 7, 78, 58, 77, 39, 82, 22, 63, 41
OFFSET
1,3
FORMULA
a(n) = n - A342001(n) = n - (A003415(n) / A003557(n)).
PROG
(PARI)
A003415(n) = if(n<=1, 0, my(f=factor(n)); n*sum(i=1, #f~, f[i, 2]/f[i, 1]));
A003557(n) = (n/factorback(factorint(n)[, 1]));
A342001(n) = (A003415(n) / A003557(n));
A346244(n) = (n - A342001(n));
CROSSREFS
Cf. A003415, A003557, A342001, A346245 (positions of negative terms).
Sequence in context: A014665 A055035 A235138 * A204595 A338823 A173897
KEYWORD
sign
AUTHOR
Antti Karttunen, Jul 19 2021
STATUS
approved