login
A327979
a(n) = gcd(n, A002322(n)), where A002322 is Carmichael lambda, also known as psi.
4
1, 1, 1, 2, 1, 2, 1, 2, 3, 2, 1, 2, 1, 2, 1, 4, 1, 6, 1, 4, 3, 2, 1, 2, 5, 2, 9, 2, 1, 2, 1, 8, 1, 2, 1, 6, 1, 2, 3, 4, 1, 6, 1, 2, 3, 2, 1, 4, 7, 10, 1, 4, 1, 18, 5, 2, 3, 2, 1, 4, 1, 2, 3, 16, 1, 2, 1, 4, 1, 2, 1, 6, 1, 2, 5, 2, 1, 6, 1, 4, 27, 2, 1, 6, 1, 2, 1, 2, 1, 6, 1, 2, 3, 2, 1, 8, 1, 14, 3, 20, 1, 2, 1, 4, 3
OFFSET
1,4
LINKS
FORMULA
a(n) = gcd(n, A002322(n)).
MATHEMATICA
Array[GCD[#, CarmichaelLambda[#]] &, 100] (* Amiram Eldar, Oct 04 2019 *)
PROG
(PARI) A327979(n) = gcd(n, lcm(znstar(n)[2]));
CROSSREFS
Cf. A002322.
Sequence in context: A248470 A082067 A082061 * A107286 A339791 A087039
KEYWORD
nonn
AUTHOR
Antti Karttunen, Oct 04 2019
STATUS
approved