A346244 a(n) = n - A342001(n).

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

Links

Table of n, a(n) for n=1..86.

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

Adjacent sequences: A346241 A346242 A346243 * A346245 A346246 A346247

Keyword

sign

Author

Antti Karttunen, Jul 19 2021

Status

approved