Search: id:A136176
Results 1-1 of 1 results found.

%I A136176
%S A136176 0,1,1,1,1,2,1,0,0,2,1,2,1,2,2,1,1,2,1,2,2,2,1,2,0,2,1,2,1,3,1,0,2,2,2,
%T A136176 2,1,2,2,1,1,3,1,2,1,2,1,2,0,2,2,2,1,2,2,1,2,2,1,3,1,2,1,0,2,3,1,2,2,3,
%U A136176 1,2,1,2,1,2,2,3,1,2,0,2,1,3,2,2,2,1,1,3,2,2,2,2,2,1,1,2,1,2,1,3,1,1,3
%N A136176 Number of exponents in the prime-factorization of n which divide n.
%H A136176 Leroy Quet, <a href="http://www.prism-of-spirals.net/">Home Page</a> 
               (listed in lieu of email address)
%e A136176 128000 = 2^10 * 5^3. 10 divides 128000, but 3 does not. So a(128000) 
               = 1.
%t A136176 Table[Length[Select[Table[FactorInteger[n][[i, 2]], {i, 1, Length[FactorInteger[n]]}], 
               Mod[n, # ] == 0 &]], {n, 1, 90}] - Stefan Steinerberger (stefan.steinerberger(AT)gmail.com), 
               Dec 21 2007
%o A136176 (PARI) A136176(n)=sum(j=1,#t=factor(n)[,2]~,!(n%t[j])) \\ - M. F. Hasler, 
               Dec 21 2007
%Y A136176 Cf. A136177.
%Y A136176 Sequence in context: A125070 A125071 A161528 this_sequence A103344 A123484 
               A008626
%Y A136176 Adjacent sequences: A136173 A136174 A136175 this_sequence A136177 A136178 
               A136179
%K A136176 nonn,easy
%O A136176 1,6
%A A136176 Leroy Quet, Dec 19 2007
%E A136176 More terms from M. F. Hasler (Maximilian.Hasler(AT)gmail.com) and Stefan 
               Steinerberger (stefan.steinerberger(AT)gmail.com), Dec 21 2007

Search completed in 0.001 seconds