A326647 -id:A326647 - cp's OEIS frontend

A326028 Number of factorizations of n into factors > 1 with integer geometric mean.

0, 1, 1, 2, 1, 1, 1, 2, 2, 1, 1, 1, 1, 1, 1, 4, 1, 1, 1, 1, 1, 1, 1, 1, 2, 1, 2, 1, 1, 1, 1, 2, 1, 1, 1, 5, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 2, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 8, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 4, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 5, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 2

Offset: 1

Gus Wiseman, Jul 15 2019

nonn

First differs from A294336 and A316782 at a(36) = 5.

			The a(4) = 2 through a(36) = 5 factorizations (showing only the cases where n is a perfect power).
  (4)    (8)      (9)    (16)       (25)   (27)     (32)         (36)
  (2*2)  (2*2*2)  (3*3)  (2*8)      (5*5)  (3*3*3)  (2*2*2*2*2)  (4*9)
                         (4*4)                                   (6*6)
                         (2*2*2*2)                               (2*18)
                                                                 (3*12)

Antti Karttunen, Table of n, a(n) for n = 1..100000
Wikipedia, Geometric mean
Index entries for sequences computed from exponents in factorization of n

Positions of terms > 1 are the perfect powers A001597.
Partitions with integer geometric mean are A067539.
Subsets with integer geometric mean are A326027.
Factorizations with integer average and geometric mean are A326647.
Cf. A001055, A082553, A322794, A326514, A326515, A326516, A326622, A326623, A326624, A326625.

facs[n_]:=If[n<=1,{{}},Join@@Table[Map[Prepend[#,d]&,Select[facs[n/d],Min@@#>=d&]],{d,Rest[Divisors[n]]}]];
Table[Length[Select[facs[n],IntegerQ[GeometricMean[#]]&]],{n,2,100}]

A326028(n, m=n, facmul=1, facnum=0) = if(1==n,facnum>0 && ispower(facmul,facnum), my(s=0); fordiv(n, d, if((d>1)&&(d<=m), s += A326028(n/d, d, facmul*d, facnum+1))); (s)); \\ Antti Karttunen, Nov 10 2024

a(2^n) = A067538(n).

a(89) onwards from Antti Karttunen, Nov 10 2024

A326641 Number of integer partitions of n whose mean and geometric mean are both integers.

Original entry on oeis.org

0, 1, 2, 2, 3, 2, 4, 2, 4, 3, 6, 2, 7, 2, 4, 5, 6, 2, 6, 2, 10, 6, 4, 2, 11, 4, 6, 5, 8, 2, 15, 2, 10, 6, 6, 8, 16, 2, 4, 8, 20, 2, 17, 2, 8, 17, 4, 2, 27, 9, 20, 8, 14, 2, 21, 10, 35, 10, 6, 2, 48, 2, 4, 41, 39, 12, 28, 2, 17, 10, 64, 2, 103, 2, 6, 23

Offset: 0

Gus Wiseman, Jul 16 2019

nonn

The Heinz numbers of these partitions are given by A326645.

			The a(4) = 3 through a(10) = 6 partitions (A = 10):
  (4)     (5)      (6)       (7)        (8)         (9)          (A)
  (22)    (11111)  (33)      (1111111)  (44)        (333)        (55)
  (1111)           (222)                (2222)      (111111111)  (82)
                   (111111)             (11111111)               (91)
                                                                 (22222)
                                                                 (1111111111)

Wikipedia, Geometric mean

Partitions with integer mean are A067538.
Partitions with integer geometric mean are A067539.
Non-constant partitions with integer mean and geometric mean are A326642.
Subsets with integer mean and geometric mean are A326643.
Heinz numbers of partitions with integer mean and geometric mean are A326645.
Strict partitions with integer mean and geometric mean are A326029.
Cf. A051293, A078175, A082553, A102627, A316413, A326027, A326623, A326644, A326646, A326647.

Table[Length[Select[IntegerPartitions[n],IntegerQ[Mean[#]]&&IntegerQ[GeometricMean[#]]&]],{n,0,30}]

A326645 Heinz numbers of integer partitions whose mean and geometric mean are both integers.

Original entry on oeis.org

2, 3, 4, 5, 7, 8, 9, 11, 13, 16, 17, 19, 23, 25, 27, 29, 31, 32, 37, 41, 43, 46, 47, 49, 53, 57, 59, 61, 64, 67, 71, 73, 79, 81, 83, 89, 97, 101, 103, 107, 109, 113, 121, 125, 127, 128, 131, 137, 139, 149, 151, 157, 163, 167, 169, 173, 179, 181, 183, 191, 193

Offset: 1

Gus Wiseman, Jul 16 2019

nonn

The Heinz number of an integer partition (y_1,...,y_k) is prime(y_1)*...*prime(y_k).

The enumeration of these partitions by sum is given by A326641.

			The sequence of terms together with their prime indices begins:
    2: {1}
    3: {2}
    4: {1,1}
    5: {3}
    7: {4}
    8: {1,1,1}
    9: {2,2}
   11: {5}
   13: {6}
   16: {1,1,1,1}
   17: {7}
   19: {8}
   23: {9}
   25: {3,3}
   27: {2,2,2}
   29: {10}
   31: {11}
   32: {1,1,1,1,1}
   37: {12}
   41: {13}
   43: {14}
   46: {1,9}
   47: {15}
   49: {4,4}

Wikipedia, Geometric mean

Heinz numbers of partitions with integer mean are A316413.
Heinz numbers of partitions with integer geometric mean are A326623.
Heinz numbers of non-constant partitions with integer mean and geometric mean are A326646.
Partitions with integer mean and geometric mean are A326641.
Subsets with integer mean and geometric mean are A326643.
Strict partitions with integer mean and geometric mean are A326029.
Cf. A051293, A056239, A067538, A067539, A078175, A112798, A316413, A326623, A326644, A326646, A326647.

primeMS[n_]:=If[n==1,{},Flatten[Cases[FactorInteger[n],{p_,k_}:>Table[PrimePi[p],{k}]]]];
Select[Range[100],IntegerQ[Mean[primeMS[#]]]&&IntegerQ[GeometricMean[primeMS[#]]]&]

A326643 Number of subsets of {1..n} whose mean and geometric mean are both integers.

Original entry on oeis.org

0, 1, 2, 3, 4, 5, 6, 7, 9, 11, 12, 13, 16, 17, 18, 19, 22, 23, 30, 31, 32, 33, 34, 35, 41, 46, 47, 70, 71, 72, 73, 74, 102, 103, 104, 105, 143, 144, 145, 146, 151, 152, 153, 154, 155, 161, 162, 163, 244, 252, 280, 281, 282, 283, 409, 410, 416, 417, 418, 419

Offset: 0

Gus Wiseman, Jul 16 2019

nonn

			The a(1) = 1 through a(12) = 16 subsets:
  {1}  {1}  {1}  {1}  {1}  {1}  {1}  {1}    {1}    {1}    {1}    {1}
       {2}  {2}  {2}  {2}  {2}  {2}  {2}    {2}    {2}    {2}    {2}
            {3}  {3}  {3}  {3}  {3}  {3}    {3}    {3}    {3}    {3}
                 {4}  {4}  {4}  {4}  {4}    {4}    {4}    {4}    {4}
                      {5}  {5}  {5}  {5}    {5}    {5}    {5}    {5}
                           {6}  {6}  {6}    {6}    {6}    {6}    {6}
                                {7}  {7}    {7}    {7}    {7}    {7}
                                     {8}    {8}    {8}    {8}    {8}
                                     {2,8}  {9}    {9}    {9}    {9}
                                            {1,9}  {10}   {10}   {10}
                                            {2,8}  {1,9}  {11}   {11}
                                                   {2,8}  {1,9}  {12}
                                                          {2,8}  {1,9}
                                                                 {2,8}
                                                                 {3,6,12}
                                                                 {3,4,9,12}

David Wasserman, Table of n, a(n) for n = 0..119
Wikipedia, Geometric mean

Partial sums of A326644.
Subsets whose geometric mean is an integer are A326027.
Subsets whose mean is an integer are A051293.
Partitions with integer mean and geometric mean are A326641.
Strict partitions with integer mean and geometric mean are A326029.
Cf. A067538, A067539, A078175, A082553, A102627, A326623, A326625, A326645, A326646, A326647.

Table[Length[Select[Subsets[Range[n]],IntegerQ[Mean[#]]&&IntegerQ[GeometricMean[#]]&]],{n,0,10}]

More terms from David Wasserman, Aug 03 2019

A326029 Number of strict integer partitions of n whose mean and geometric mean are both integers.

Original entry on oeis.org

0, 1, 1, 1, 1, 1, 1, 1, 1, 1, 3, 1, 1, 1, 1, 1, 1, 1, 1, 1, 3, 3, 1, 1, 1, 1, 3, 1, 2, 1, 3, 1, 1, 2, 3, 1, 3, 1, 1, 3, 6, 1, 3, 1, 2, 1, 1, 1, 3, 1, 6, 1, 5, 1, 2, 2, 2, 4, 3, 1, 9, 1, 1, 3, 1, 1, 4, 1, 4, 2, 6, 1, 6, 1, 3, 7, 4, 2, 5, 1, 10, 1, 3, 1, 9, 3

Offset: 0

Gus Wiseman, Jul 16 2019

nonn

			The a(55) = 2 through a(60) = 9 partitions:
  (55)           (56)         (57)        (58)    (59)  (60)
  (27,16,9,2,1)  (24,18,8,6)  (49,7,1)    (49,9)        (54,6)
                              (27,25,5)   (50,8)        (48,12)
                              (27,18,12)                (27,24,9)
                                                        (27,24,6,2,1)
                                                        (36,12,9,2,1)
                                                        (36,9,6,4,3,2)
                                                        (24,18,9,6,2,1)
                                                        (27,16,9,4,3,1)

Wikipedia, Geometric mean

Partitions with integer mean and geometric mean are A326641.
Strict partitions with integer mean are A102627.
Strict partitions with integer geometric mean are A326625.
Non-constant partitions with integer mean and geometric mean are A326641.
Subsets with integer mean and geometric mean are A326643.
Heinz numbers of partitions with integer mean and geometric mean are A326645.
Cf. A051293, A067538, A067539, A078175, A082553, A316413, A326027, A326623, A326644, A326646, A326647.

Table[Length[Select[IntegerPartitions[n],UnsameQ@@#&&IntegerQ[Mean[#]]&&IntegerQ[GeometricMean[#]]&]],{n,0,30}]

More terms from Jinyuan Wang, Jun 26 2020

A326644 Number of subsets of {1..n} containing n whose mean and geometric mean are both integers.

Original entry on oeis.org

0, 1, 1, 1, 1, 1, 1, 1, 2, 2, 1, 1, 3, 1, 1, 1, 3, 1, 7, 1, 1, 1, 1, 1, 6, 5, 1, 23, 1, 1, 1, 1, 28, 1, 1, 1, 38, 1, 1, 1, 5, 1, 1, 1, 1, 6, 1, 1, 81, 8, 28, 1, 1, 1, 126, 1, 6, 1, 1, 1, 37, 1, 1, 6, 208, 1, 1, 1, 1, 1, 1, 1, 351, 1, 1, 381, 1, 1, 1, 1, 159, 605, 1, 1, 9, 1, 1, 1, 2, 1, 1223, 1, 1, 1, 1, 1, 805, 1, 113, 2, 5021, 1, 1, 1, 2, 1, 1, 1, 2630, 1, 1, 1, 54, 1, 1, 1, 1, 2, 1, 1

Offset: 0

Gus Wiseman, Jul 16 2019

nonn

			The a(1) = 1 through a(12) = 3 subsets:
  {1}  {2}  {3}  {4}  {5}  {6}  {7}  {8}    {9}    {10}  {11}  {12}
                                     {2,8}  {1,9}              {3,6,12}
                                                               {3,4,9,12}
The a(18) = 7 subsets:
  {18}
  {2,18}
  {8,18}
  {1,8,9,18}
  {2,3,8,9,18}
  {6,12,16,18}
  {2,3,4,9,12,18}

Wikipedia, Geometric mean

First differences of A326643.
Subsets whose mean is an integer are A051293.
Subsets whose geometric mean is an integer are A326027.
Partitions with integer mean and geometric mean are A326641.
Strict partitions with integer mean and geometric mean are A326029.
Cf. A067538, A067539, A082550, A082553, A102627, A326028, A326623, A326625, A326645, A326647.

Table[Length[Select[Subsets[Range[n]],MemberQ[#,n]&&IntegerQ[Mean[#]]&&IntegerQ[GeometricMean[#]]&]],{n,0,10}]

More terms from David Wasserman, Aug 03 2019

A326667 Number of factorizations of 2^n into factors > 1 with integer average.

Original entry on oeis.org

1, 2, 3, 4, 5, 7, 8, 11, 15, 19, 21, 29, 37, 44, 58, 67, 86, 105, 136, 146, 219, 236, 295, 327, 473, 469, 694, 707, 932, 1020, 1398, 1340, 2023, 2059, 2636, 2816, 3887, 3855, 5377, 5467, 7095, 7611, 9924, 9992, 13795, 14205, 17728, 19315, 24803, 25452, 33026

Offset: 1

Gus Wiseman, Jul 17 2019

nonn

Also the number of integer partitions y of n such that the average of the multiset {2^s: s in y} is an integer.

			The a(1) = 1 through a(8) = 11 partitions:
  (1)  (2)   (3)    (4)     (5)      (6)       (7)        (8)
       (11)  (21)   (22)    (32)     (33)      (43)       (44)
             (111)  (31)    (41)     (42)      (52)       (53)
                    (1111)  (311)    (51)      (61)       (62)
                            (11111)  (222)     (331)      (71)
                                     (2211)    (511)      (422)
                                     (111111)  (3211)     (2222)
                                               (1111111)  (3311)
                                                          (4211)
                                                          (311111)
                                                          (11111111)

The strict case is A326668.
Factorizations with integer average are A326622.
Partitions with integer average are A067538.
Subsets with integer average are A051293.
Cf. A001055, A102627, A326028, A326647, A326666, A326670, A326671.

Table[Length[Select[IntegerPartitions[n],IntegerQ[Mean[2^#]]&]],{n,30}]

A326666 Numbers k such that there exists a factorization of k into factors > 1 whose mean is not an integer but whose geometric mean is an integer.

Original entry on oeis.org

36, 64, 100, 144, 196, 216, 256, 324, 400, 484, 512, 576, 676, 784, 900, 1000, 1024, 1156, 1296, 1444, 1600, 1728, 1764, 1936, 2116, 2304, 2500, 2704, 2744, 2916, 3136, 3364, 3375, 3600, 3844, 4096, 4356, 4624, 4900, 5184, 5476, 5776, 5832, 6084, 6400, 6724

Offset: 1

Gus Wiseman, Jul 17 2019

nonn

			36 has two such factorizations: (3*12) and (4*9).
The sequence of terms together with their prime indices begins:
    36: {1,1,2,2}
    64: {1,1,1,1,1,1}
   100: {1,1,3,3}
   144: {1,1,1,1,2,2}
   196: {1,1,4,4}
   216: {1,1,1,2,2,2}
   256: {1,1,1,1,1,1,1,1}
   324: {1,1,2,2,2,2}
   400: {1,1,1,1,3,3}
   484: {1,1,5,5}
   512: {1,1,1,1,1,1,1,1,1}
   576: {1,1,1,1,1,1,2,2}
   676: {1,1,6,6}
   784: {1,1,1,1,4,4}
   900: {1,1,2,2,3,3}
  1000: {1,1,1,3,3,3}
  1024: {1,1,1,1,1,1,1,1,1,1}
  1156: {1,1,7,7}
  1296: {1,1,1,1,2,2,2,2}
  1444: {1,1,8,8}

Wikipedia, Geometric mean

A subsequence of A001597.
Factorizations with integer mean are A326622.
Factorizations with integer geometric mean are A326028.
Cf. A001055, A067538, A067539, A326027, A326516, A326623, A326641, A326643, A326645, A326647.

facs[n_]:=If[n<=1,{{}},Join@@Table[Map[Prepend[#,d]&,Select[facs[n/d],Min@@#>=d&]],{d,Rest[Divisors[n]]}]];
Select[Range[1000],Length[Select[facs[#],!IntegerQ[Mean[#]]&&IntegerQ[GeometricMean[#]]&]]>1&]

A326646 Heinz numbers of non-constant integer partitions whose mean and geometric mean are both integers.

Original entry on oeis.org

46, 57, 183, 194, 228, 371, 393, 454, 515, 687, 742, 838, 1057, 1064, 1077, 1150, 1157, 1159, 1244, 1322, 1563, 1895, 2018, 2060, 2116, 2157, 2163, 2167, 2177, 2225, 2231, 2405, 2489, 2854, 2859, 3249, 3263, 3339, 3352, 3558, 3669, 3758, 3787, 3914, 4265, 4351

Offset: 1

Gus Wiseman, Jul 16 2019

nonn

The Heinz number of an integer partition (y_1,...,y_k) is prime(y_1)*...*prime(y_k).

The enumeration of these partitions by sum is given by A326642.

			The sequence of terms together with their prime indices begins:
    46: {1,9}
    57: {2,8}
   183: {2,18}
   194: {1,25}
   228: {1,1,2,8}
   371: {4,16}
   393: {2,32}
   454: {1,49}
   515: {3,27}
   687: {2,50}
   742: {1,4,16}
   838: {1,81}
  1057: {4,36}
  1064: {1,1,1,4,8}
  1077: {2,72}
  1150: {1,3,3,9}
  1157: {6,24}
  1159: {8,18}
  1244: {1,1,64}
  1322: {1,121}

Wikipedia, Geometric mean

Heinz numbers of partitions with integer mean and geometric mean are A326645.
Heinz numbers of partitions with integer mean are A316413.
Heinz numbers of partitions with integer geometric mean are A326623.
Non-constant partitions with integer mean and geometric mean are A326642.
Subsets with integer mean and geometric mean are A326643.
Strict partitions with integer mean and geometric mean are A326029.
Cf. A051293, A067538, A067539, A078175, A082553, A102627, A326027, A326641, A326644, A326647.

A326668 Number of strict factorizations of 2^n into factors > 1 with integer average.

Original entry on oeis.org

1, 1, 2, 2, 3, 3, 4, 4, 6, 5, 7, 7, 9, 9, 12, 12, 17, 17, 21, 24, 33, 33, 42, 46, 63, 61, 81, 82, 118, 106, 149, 137, 213, 172, 263, 221, 363, 266, 453, 335, 594, 409, 735, 484, 968, 594, 1139, 731, 1486, 813, 1801, 1026, 2177, 1230, 2667, 1348, 3334, 1693

Offset: 1

Gus Wiseman, Jul 17 2019

nonn

Also the number of strict integer partitions y of n such that the average of the set {2^s: s in y} is an integer.

			The a(1) = 1 through a(11) = 7 partitions (A = 10, B = 11):
  (1)  (2)  (3)   (4)   (5)   (6)   (7)   (8)   (9)    (A)   (B)
            (21)  (31)  (32)  (42)  (43)  (53)  (54)   (64)  (65)
                        (41)  (51)  (52)  (62)  (63)   (73)  (74)
                                    (61)  (71)  (72)   (82)  (83)
                                                (81)   (91)  (92)
                                                (531)        (A1)
                                                             (731)

The non-strict case is A326667.
Factorizations with integer average are A326622.
Strict partitions with integer average are A102627.
Subsets with integer average are A051293.
Cf. A001055, A067538, A102627, A326028, A326647, A326666, A326670, A326671.

Table[Length[Select[IntegerPartitions[n],UnsameQ@@#&&IntegerQ[Mean[2^#]]&]],{n,30}]

cp's OEIS Frontend

A326028 Number of factorizations of n into factors > 1 with integer geometric mean.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

PARI

Formula

Extensions

A326641 Number of integer partitions of n whose mean and geometric mean are both integers.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

A326645 Heinz numbers of integer partitions whose mean and geometric mean are both integers.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

A326643 Number of subsets of {1..n} whose mean and geometric mean are both integers.

Views

Author

Keywords

Examples

Links

Crossrefs

Programs

Mathematica

Extensions

A326029 Number of strict integer partitions of n whose mean and geometric mean are both integers.

Views

Author

Keywords

Examples

Links

Crossrefs

Programs

Mathematica

Extensions

A326644 Number of subsets of {1..n} containing n whose mean and geometric mean are both integers.

Views

Author

Keywords

Examples

Links

Crossrefs

Programs

Mathematica

Extensions

A326667 Number of factorizations of 2^n into factors > 1 with integer average.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

A326666 Numbers k such that there exists a factorization of k into factors > 1 whose mean is not an integer but whose geometric mean is an integer.

Views

Author

Keywords

Examples

Links

Crossrefs