A295655 a(n) = A000203(n) / A294896(n) = A000203(n) / gcd(A000203(n), A005187(n)).

1, 1, 1, 1, 3, 6, 8, 1, 13, 1, 12, 14, 14, 24, 12, 1, 9, 39, 4, 21, 32, 36, 4, 30, 31, 6, 4, 56, 5, 9, 32, 1, 3, 9, 48, 13, 38, 60, 28, 15, 42, 32, 22, 84, 39, 9, 48, 62, 3, 93, 36, 98, 9, 15, 24, 120, 8, 45, 60, 42, 62, 96, 13, 1, 21, 72, 68, 63, 32, 144, 12, 195, 74, 114, 62, 140, 16, 21, 80, 93, 121, 18, 14

Offset: 1

Author

Antti Karttunen, Nov 25 2017

Keywords

• nonn

Links

• Antti Karttunen, Table of n, a(n) for n = 1..16384
• Index entries for sequences related to sigma(n)

Crossrefs

Cf. A000203, A005187, A294896, A295656.

Programs

Mathematica

Array[#1/GCD[#1, #2] & @@ {DivisorSigma[1, #], IntegerExponent[(2 #)!, 2]} &, 83] (* Michael De Vlieger, Nov 26 2017 *)

Formula

a(n) = A000203(n) / A294896(n) = A000203(n) / gcd(A000203(n), A005187(n)).