%I A091895
%S A091895 1,8,3,4,5,72,7,80,108,20,11,240,13,28,15,16,17,0,19,480,21,44,23,48,25,
%T A091895 52,27,560,29,0,31,448,33,68,35,864,37,76,39,160,41,1680,43,880,540,92,
%U A091895 47,144,49,200,51,1040,53,972,55,112,57,116,59,1920,61,124,756,64,65
%N A091895 Least number k such that the denominator of d(k)/k = n, or zero if no 
               such number exist.
%C A091895 k is a multiple of n.
%t A091895 a = Table[0, {100}]; Do[b = Denominator[DivisorSigma[0, n]/n]; If[b < 
               101 && a[[b]] == 0, a[[b]] = n], {n, 1, 2640}]; a
%Y A091895 Cf. A090395, zeros are in A091896.
%Y A091895 Sequence in context: A021849 A070474 A070597 this_sequence A111436 A014549 
               A021549
%Y A091895 Adjacent sequences: A091892 A091893 A091894 this_sequence A091896 A091897 
               A091898
%K A091895 nonn
%O A091895 1,2
%A A091895 Robert G. Wilson v (rgwv(AT)rgwv.com), Feb 09 2004