A378994 a(n) = gcd(2*n, sigma(2*n)).
1, 1, 6, 1, 2, 4, 2, 1, 3, 2, 2, 12, 2, 28, 6, 1, 2, 1, 2, 10, 6, 4, 2, 4, 1, 2, 6, 8, 2, 12, 2, 1, 6, 2, 2, 3, 2, 4, 6, 2, 2, 28, 2, 4, 18, 4, 2, 12, 1, 1, 6, 2, 2, 4, 2, 8, 6, 2, 2, 120, 2, 4, 6, 1, 2, 12, 2, 2, 6, 28, 2, 1, 2, 2, 6, 4, 2, 4, 2, 2, 3, 2, 2, 24, 2, 4, 6, 4, 2, 6, 14, 8, 6, 4, 10, 4, 2, 7, 18, 5
Offset: 1
Keywords
Links
Crossrefs
Programs
-
Mathematica
Table[GCD[2n,DivisorSigma[1,2n]],{n,100}] (* James C. McMahon, Dec 14 2024 *)
-
PARI
A378994(n) = gcd(2*n, sigma(2*n));