%I A072548
%S A072548 0,0,1,0,0,0,3,1,2,2,3,2,0,0,1,4,4,4,2,0,4,6,6,4,6,4,2,0,2,10,8,4,10,4,
%T A072548 3,2,0,8,6,3,5,2,0,8,2,3,4,12,3,12,8,6,8,8,8,0,10,9,15,8,6,14,1,12,0,
%U A072548 11,12,1,11,12,15,11,9,19,14,12,0,14,10,11,16,15,17,16,17,5,19,18,18
%N A072548 Least nonnegative remainder of division Sigma[n]/PrimePi[n].
%F A072548 a(n)=Mod[A000203(n), A000720(n)]
%t A072548 Table[Mod[DivisorSigma[1, w], PrimePi[w]], {w, 1, 128}]
%Y A072548 Cf. A000203, A000720, A073321-A073324.
%Y A072548 Sequence in context: A003016 A108121 A161916 this_sequence A079399 A092155 
               A029336
%Y A072548 Adjacent sequences: A072545 A072546 A072547 this_sequence A072549 A072550 
               A072551
%K A072548 nonn
%O A072548 2,7
%A A072548 Labos E. (labos(AT)ana.sote.hu), Aug 05 2002