A295312 a(n) = A062401(n) / A295310(n) = phi(sigma(n)) / gcd(n, phi(sigma(n))).

1, 1, 2, 3, 2, 2, 4, 1, 4, 3, 4, 1, 6, 4, 8, 15, 6, 4, 8, 3, 16, 6, 8, 2, 6, 6, 16, 6, 8, 4, 16, 9, 16, 9, 16, 2, 18, 8, 8, 3, 12, 16, 20, 6, 8, 12, 16, 5, 36, 6, 8, 21, 18, 16, 24, 4, 32, 12, 16, 4, 30, 16, 16, 63, 24, 8, 32, 9, 32, 24, 24, 4, 36, 18, 4, 12, 32, 8, 32, 3, 110, 18, 24, 8, 36, 20, 32, 6, 24, 4, 48, 12, 64, 24, 32, 3

Offset

1,3

Links

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

Formula

a(n) = A000010(A000203(n)) / gcd(n, A000010(A000203(n))).

Prog

(PARI) a(n) = my(fsn = eulerphi(sigma(n))); fsn/gcd(n, fsn); \\ Michel Marcus, Nov 23 2017

Crossrefs

Cf. A000010, A000203, A062401, A295301, A295310, A295311, A295315.

Sequence in context: A017828 A140087 A174329 * A212174 A368713 A368039

Adjacent sequences: A295309 A295310 A295311 * A295313 A295314 A295315

Keyword

nonn

Author

Antti Karttunen, Nov 22 2017

Status

approved