Search: id:A061034
Results 1-1 of 1 results found.
%I A061034
%S A061034 1,2,2,5,2,4,2,16,6,4,2,10,2,4,4,67,2,12,2,10,4,4,2,32,8,4,28,10,2,
%T A061034 8,2,374,4,4,4,30,2,4,4,32,2,8,2,10,12,4,2,134,10,16,4,10,2,56,4,32,
%U A061034 4,4,2,20,2,4,12,2825,4,8,2,10,4,8,2,96,2,4,16,10,4,8,2,134,212,4,2
%N A061034 Maximal number of subgroups in an Abelian group with n elements.
%C A061034 a(n) is multiplicative: if m and n are relatively primes then a(m*n)
= a(n) * a(m) . For n >= 2 a(n)>=2 with equality iff n is prime.
%D A061034 G. A. Miller, On the Subgroups of an Abelian Group, The Annals of Mathematics,
2nd Ser., Vol. 6, No. 1. (1904), pp. 1-6. [Paragraph 4 is entitled
"total number of subgroups in a group of order p^m". - M. F. Hasler,
Dec 03 2007]
%H A061034 Max Alekseyev, PARI scripts for various problems
%H A061034 G. A. Miller, On the Subgroups of an Abelian Group [JSTOR]
%F A061034 (C_2)^m has A006116(m) subgroups, so this is a lower bound if n is a
power of 2 (e.g. a(16) >= 67). - N. J. A. Sloane (njas(AT)research.att.com),
Dec 01 2007
%e A061034 a(4) = 67: C16 has 5 subgroups, C2 X C8 has 11 subgroups, (C2)^2 X C4
has 27 subgroups, (C2)^4 has 67 subgroups, (C4)^2 has 15 subgroups.
%o A061034 (PARI, from Max Alekseyev) { A061034(n) = local(f=factorint(n)); prod(i=1,
matsize(f)[1], A061034pp(f[i,1],f[i,2]) ) }
%o A061034 \\ for prime power p^k { A061034pp(p,k) = res=0; for(i=1, k, aux_part(p,
k-i, i, [])); res }
%o A061034 \\ iterate over all partitions { aux_part(p, n, m, v) = v = concat(v,
m); if(n, for(i=1, min(m,n), aux_part(p, n-i, i, v)), res=max(res,
numsubgrp(p,v));); }
%Y A061034 Cf. A006116, A018216, A083573.
%Y A061034 Sequence in context: A108053 A133501 A124316 this_sequence A111861 A004543
A153078
%Y A061034 Adjacent sequences: A061031 A061032 A061033 this_sequence A061035 A061036
A061037
%K A061034 nonn,mult
%O A061034 1,2
%A A061034 Ola Veshta (olaveshta(AT)my-deja.com), May 26 2001
%E A061034 More terms from Victoria A Sapko (vsapko(AT)canes.gsw.edu), Jun 13 2003
Search completed in 0.001 seconds