A327979 a(n) = gcd(n, A002322(n)), where A002322 is Carmichael lambda, also known as psi.

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

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

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.

Cf. also A009191, A009194, A009195, A306695.

Sequence in context: A248470 A082067 A082061 * A107286 A339791 A087039

Adjacent sequences: A327976 A327977 A327978 * A327980 A327981 A327982

Keyword

nonn

Author

Antti Karttunen, Oct 04 2019

Status

approved