A070032 Integer part of sigma(n)/phi(n).

1, 3, 2, 3, 1, 6, 1, 3, 2, 4, 1, 7, 1, 4, 3, 3, 1, 6, 1, 5, 2, 3, 1, 7, 1, 3, 2, 4, 1, 9, 1, 3, 2, 3, 2, 7, 1, 3, 2, 5, 1, 8, 1, 4, 3, 3, 1, 7, 1, 4, 2, 4, 1, 6, 1, 5, 2, 3, 1, 10, 1, 3, 2, 3, 1, 7, 1, 3, 2, 6, 1, 8, 1, 3, 3, 3, 1, 7, 1, 5, 2, 3, 1, 9, 1, 3, 2, 4, 1, 9, 1, 3, 2, 3, 1, 7, 1, 4, 2, 5

Offset: 1

Author

Labos Elemer, Apr 15 2002

Keywords

• easy
• nonn

Links

• Michael De Vlieger, Table of n, a(n) for n = 1..10000

Crossrefs

Cf. A000010, A000203.

Programs

GAP

List([1..110],n->Int(Sigma(n)/Phi(n))); # Muniru A Asiru, Dec 08 2018

Maple

with(numtheory): seq(floor(sigma(n)/phi(n)),n=1..110); # Muniru A Asiru, Dec 08 2018

Mathematica

Table[Floor[DivisorSigma[1,n]/EulerPhi[n]],{n,100}] (* Harvey P. Dale, Nov 10 2017 *)

PARI

a(n) = {my(f = factor(n)); sigma(f) \ eulerphi(f);} \\ Amiram Eldar, Dec 25 2024

Formula

a(n) = floor(A000203(n)/A000010(n)).