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,5

Links

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

Index entries for sequences related to sigma(n)

Formula

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

Mathematica

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

Crossrefs

Cf. A000203, A005187, A294896, A295656.

Sequence in context: A181909 A181917 A157032 * A339621 A254604 A278498

Adjacent sequences: A295652 A295653 A295654 * A295656 A295657 A295658

Keyword

nonn

Author

Antti Karttunen, Nov 25 2017

Status

approved