|
%I #13 Sep 28 2019 03:24:55
%S 1,1,1,1,1,1,1,4,3,5,1,6,1,7,5,32,1,27,1,20,21,11,1,64,5,13,27,49,1,
%T 375,1,512,11,17,35,5832,1,19,39,3200,1,147,1,242,135,23,1,24576,7,
%U 625,17,676,1,6561,55,10976,57,29
%N Denominator of n * Product_{d|n} (1 + 1/d).
%H Amiram Eldar, <a href="/A029934/b029934.txt">Table of n, a(n) for n = 1..10000</a>
%p with(numtheory): f := proc(n) local i,j; j := n; for i in divisors(n) do j := j*(1+1/i); od; end;
%t dp[n_]:=Denominator[n*Times@@(1+1/#&/@Divisors[n])]; Array[dp,60] (* _Harvey P. Dale_, Mar 23 2012 *)
%Y Cf. A029933 (numerators).
%K nonn
%O 1,8
%A _N. J. A. Sloane_.
|
