A298754 - OEIS

%I #14 Dec 20 2024 02:41:25

%S 1,9,14,73,63,126,172,117,757,567,666,146,1099,1548,882,151,2457,6813,

%T 3430,219,2408,5994,6084,1638,15751,9891,1022,12556,12195,7938,14896,

%U 12483,9324,22113,10836,55261,25327,6174,15386,567,34461,21672,39754,16206,6813,54756,51912,2114,39331,47253

%N Numerator of sigma_3(n)/sigma_2(n).

%H Robert Israel, <a href="/A298754/b298754.txt">Table of n, a(n) for n = 1..10000</a>

%p seq(numer(numtheory:-sigma[3](n)/numtheory:-sigma[2](n)),n=1..100);

%t a[n_] := Numerator[DivisorSigma[3, n]/DivisorSigma[2, n]]; Array[a, 100] (* _Amiram Eldar_, Dec 20 2024 *)

%o (PARI) a(n) = numerator(sigma(n, 3)/sigma(n, 2)); \\ _Michel Marcus_, Jan 27 2018

%Y Cf. A001158, A001157, A000203, A091258, A091259, A091260 (denominator).

%K nonn,frac

%O 1,2

%A _Robert Israel_, Jan 26 2018