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

%I A046054
%S A046054 1,2,3,5,7,11,15,22,30,42,56,77,101,135,176,231,297,303,385,405,490,
%T A046054 505,528,539,627,675,693,707,792,880,891,945,1002,1155,1232,1255,1485,
%U A046054 1617,1925,1936,2079,2450,2541,2695,3135,3267,3430,3465,3960,4235
%N A046054 Incrementally largest number of nonisomorphic finite Abelian groups as 
               a function of order.
%C A046054 Records in A000688. These records occur at A000688(n) when n=2^k {k=0,
               1,2,3,4,...} - Artur Jasinski (grafix(AT)csl.pl), Mar 14 2008
%H A046054 Eric Weisstein's World of Mathematics, <a href="http://mathworld.wolfram.com/
               AbelianGroup.html">Link to a section of The World of Mathematics.</
               a>
%H A046054 <a href="Sindx_Gre.html#groups">Index entries for sequences related to 
               enumerating groups.</a>
%t A046054 a = {}; b = 0; f[n_] := Times @@ PartitionsP /@ Last /@ FactorInteger@n; 
               k = Array[f, 1000000]; Do[If[k[[m]] > b, b = k[[m]]; AppendTo[a, 
               b]], {m, 1, Length[k]}]; a using a procedure from Robert G. Wilson*) 
               - Artur Jasinski (grafix(AT)csl.pl), Mar 14 2008
%Y A046054 Cf. A000688, A046055, A046056.
%Y A046054 Sequence in context: A104501 A008635 A008641 this_sequence A092885 A000041 
               A084251
%Y A046054 Adjacent sequences: A046051 A046052 A046053 this_sequence A046055 A046056 
               A046057
%K A046054 nonn
%O A046054 1,2
%A A046054 Eric Weisstein (eric(AT)weisstein.com)
%E A046054 More terms from David Wasserman (wasserma(AT)spawar.navy.mil), Feb 06 
               2002

Search completed in 0.001 seconds