%I A063966
%S A063966 1,2,3,5,6,7,8,11,13,14,15,17,18,19,20,25,26,28,29,31,32,33,34,37,39,
%T A063966 40,43,45,46,47,48,55,56,57,58,62,63,64,65,68,69,70,71,73,75,76,77,82,
%U A063966 84,86,87,89,90,93,94,97,98,99,100,102,103,104,106,117,118,119,120,122
%N A063966 Number of Abelian groups of order <= n.
%H A063966 Eric Weisstein's World of Mathematics, <a href="http://mathworld.wolfram.com/
AbelianGroup.html">Abelian Group</a>
%H A063966 B. Horvat, G. Jaklic and T. Pisanski, <a href="http://arXiv.org/abs/math.CO/
0503183">On the number of Hamiltonian groups</a>
%p A063966 with(combinat): readlib(ifactors): total := 0: for n from 1 to 100 do
ans := 1: for i from 1 to nops(ifactors(n)[2]) do ans := ans*numbpart(ifactors(n)[2][i][2])
od: printf(`%d,`,total+ans): total := total+ans: od:
%Y A063966 Partial sums of A000688.
%Y A063966 Cf. A063756.
%Y A063966 Sequence in context: A094180 A116545 A140661 this_sequence A123030 A063752
A016741
%Y A063966 Adjacent sequences: A063963 A063964 A063965 this_sequence A063967 A063968
A063969
%K A063966 nonn
%O A063966 1,2
%A A063966 Ahmed Fares (ahmedfares(AT)my-deja.com), Sep 04 2001
%E A063966 More terms from James A. Sellers (sellersj(AT)math.psu.edu), Sep 26 2001
|