A070032 - OEIS

%I #15 Dec 25 2024 04:25:34

%S 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,

%T 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,

%U 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

%N Integer part of sigma(n)/phi(n).

%H Michael De Vlieger, <a href="/A070032/b070032.txt">Table of n, a(n) for n = 1..10000</a>

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

%p with(numtheory): seq(floor(sigma(n)/phi(n)),n=1..110); # _Muniru A Asiru_, Dec 08 2018

%t Table[Floor[DivisorSigma[1,n]/EulerPhi[n]],{n,100}] (* _Harvey P. Dale_, Nov 10 2017 *)

%o (GAP) List([1..110],n->Int(Sigma(n)/Phi(n))); # _Muniru A Asiru_, Dec 08 2018

%o (PARI) a(n) = {my(f = factor(n)); sigma(f) \ eulerphi(f);} \\ _Amiram Eldar_, Dec 25 2024

%Y Cf. A000010, A000203.

%K easy,nonn

%O 1,2

%A _Labos Elemer_, Apr 15 2002