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

Links

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

Formula

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

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 *)

Prog

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

Crossrefs

Cf. A000010, A000203.

Sequence in context: A131498 A236455 A033093 * A204915 A165026 A289773

Adjacent sequences: A070029 A070030 A070031 * A070033 A070034 A070035

Keyword

easy,nonn

Author

Labos Elemer, Apr 15 2002

Status

approved