A006939 -id:A006939 - cp's OEIS frontend

A181818 Products of superprimorials (A006939).

1, 2, 4, 8, 12, 16, 24, 32, 48, 64, 96, 128, 144, 192, 256, 288, 360, 384, 512, 576, 720, 768, 1024, 1152, 1440, 1536, 1728, 2048, 2304, 2880, 3072, 3456, 4096, 4320, 4608, 5760, 6144, 6912, 8192, 8640, 9216, 11520, 12288, 13824, 16384, 17280, 18432, 20736, 23040, 24576, 27648, 32768

Offset: 1

Matthew Vandermast, Nov 30 2010

nonn

Sorted list of positive integers with a factorization Product p(i)^e(i) such that (e(1) - e(2)) >= (e(2) - e(3)) >= ... >= (e(k-1) - e(k)) >= e(k), with k = A001221(n), and p(k) = A006530(n) = A000040(k), i.e., the prime factors p(1) .. p(k) must be consecutive primes from 2 onward. - Comment clarified by Antti Karttunen, Apr 28 2022
Subsequence of A025487. A025487(n) belongs to this sequence iff A181815(n) is a member of A025487.
If prime signatures are considered as partitions, these are the members of A025487 whose prime signature is conjugate to the prime signature of a member of A182863. - Matthew Vandermast, May 20 2012

			2, 12, and 360 are all superprimorials (i.e., members of A006939). Therefore, 2*2*12*360 = 17280 is included in the sequence.
From _Gus Wiseman_, Aug 12 2020 (Start):
The sequence of factorizations (which are unique) begins:
    1 = empty product
    2 = 2
    4 = 2*2
    8 = 2*2*2
   12 = 12
   16 = 2*2*2*2
   24 = 2*12
   32 = 2*2*2*2*2
   48 = 2*2*12
   64 = 2*2*2*2*2*2
   96 = 2*2*2*12
  128 = 2*2*2*2*2*2*2
  144 = 12*12
  192 = 2*2*2*2*12
  256 = 2*2*2*2*2*2*2*2
(End)

Amiram Eldar, Table of n, a(n) for n = 1..10000

A181817 rearranged in numerical order. Also includes all members of A000079, A001021, A006939, A009968, A009992, A066120, A166475, A167448, A181813, A181814, A181816, A182763.
Subsequence of A025487, A055932, A087980, A130091, A181824.
A001013 is the version for factorials.
A336426 is the complement.
A336496 is the version for superfactorials.
A001055 counts factorizations.
A006939 lists superprimorials or Chernoff numbers.
A317829 counts factorizations of superprimorials.
Cf. A022915, A076954, A304686, A325368, A336419, A336420, A336421, A353518 (characteristic function).

Select[Range[100],PrimePi[First/@If[#==1,{}, FactorInteger[#]]]==Range[ PrimeNu[#]]&&LessEqual@@Differences[ Append[Last/@FactorInteger[#],0]]&] (* Gus Wiseman, Aug 12 2020 *)

firstdiffs0forward(vec) = { my(v=vector(#vec)); for(n=1,#v,v[n] = vec[n]-if(#v==n,0,vec[1+n])); (v); };
A353518(n) = if(1==n,1,my(f=factor(n), len=#f~); if(primepi(f[len,1])!=len, return(0), my(diffs=firstdiffs0forward(f[,2])); for(i=1,#diffs-1,if(diffs[i+1]>diffs[i],return(0))); (1)));
isA181818(n) = A353518(n); \\ Antti Karttunen, Apr 28 2022

A336420 Irregular triangle read by rows where T(n,k) is the number of divisors of the n-th superprimorial A006939(n) with distinct prime multiplicities and k prime factors counted with multiplicity.

Original entry on oeis.org

1, 1, 1, 1, 2, 1, 1, 1, 3, 2, 5, 2, 1, 1, 1, 4, 3, 11, 7, 7, 10, 5, 2, 1, 1, 1, 5, 4, 19, 14, 18, 37, 25, 23, 15, 23, 10, 5, 2, 1, 1, 1, 6, 5, 29, 23, 33, 87, 70, 78, 74, 129, 84, 81, 49, 39, 47, 23, 10, 5, 2, 1, 1, 1, 7, 6, 41, 34, 52, 165, 144, 183, 196, 424, 317, 376, 325, 299, 431, 304, 261, 172, 129, 81, 103, 47, 23, 10, 5, 2, 1, 1

Offset: 0

Gus Wiseman, Jul 25 2020

A number's prime signature (row n of A124010) is the sequence of positive exponents in its prime factorization, so a number has distinct prime multiplicities iff all the exponents in its prime signature are distinct.
The n-th superprimorial or Chernoff number is A006939(n) = Product_{i = 1..n} prime(i)^(n - i + 1).
T(n,k) is also the number of length-n vectors 0 <= v_i <= i summing to k whose nonzero values are all distinct.

			Triangle begins:
  1
  1  1
  1  2  1  1
  1  3  2  5  2  1  1
  1  4  3 11  7  7 10  5  2  1  1
  1  5  4 19 14 18 37 25 23 15 23 10  5  2  1  1
The divisors counted in row n = 4 are:
  1  2  4     8   16   48   144   432  2160  10800  75600
     3  9    12   24   72   360   720  3024
     5  25   18   40   80   400  1008
     7       20   54  108   504  1200
             27   56  112   540  2800
             28  135  200   600
             45  189  675   756
             50            1350
             63            1400
             75            4725
            175

A000110 gives row sums.
A000124 gives row lengths.
A000142 counts divisors of superprimorials.
A006939 lists superprimorials or Chernoff numbers.
A008278 is the version counting only distinct prime factors.
A008302 counts divisors of superprimorials by bigomega.
A022915 counts permutations of prime indices of superprimorials.
A076954 can be used instead of A006939.
A130091 lists numbers with distinct prime multiplicities.
A146291 counts divisors by bigomega.
A181796 counts divisors with distinct prime multiplicities.
A181818 gives products of superprimorials.
A317829 counts factorizations of superprimorials.
A336417 counts perfect-power divisors of superprimorials.
A336498 counts divisors of factorials by bigomega.
A336499 uses factorials instead superprimorials.
Cf. A000005, A001222, A008278, A027423, A071625, A124010, A327498, A336419, A336421, A336426, A336500, A336568.

chern[n_]:=Product[Prime[i]^(n-i+1),{i,n}];
Table[Length[Select[Divisors[chern[n]],PrimeOmega[#]==k&&UnsameQ@@Last/@FactorInteger[#]&]],{n,0,5},{k,0,n*(n+1)/2}]

A336417 Number of perfect-power divisors of superprimorials A006939.

Original entry on oeis.org

1, 1, 2, 5, 15, 44, 169, 652, 3106, 15286, 89933, 532476, 3698650, 25749335, 204947216, 1636097441, 14693641859, 132055603656, 1319433514898, 13186485900967, 144978145009105, 1594375302986404, 19128405558986057, 229508085926717076, 2983342885319348522

Offset: 0

Gus Wiseman, Jul 24 2020

nonn

A number is a perfect power iff it is 1 or its prime exponents (signature) are not relatively prime.

The n-th superprimorial number is A006939(n) = Product_{i = 1..n} prime(i)^(n - i + 1).

			The a(0) = 1 through a(4) = 15 divisors:
  1  2  12  360  75600
-------------------------
  1  1   1    1      1
         4    4      4
              8      8
              9      9
             36     16
                    25
                    27
                    36
                   100
                   144
                   216
                   225
                   400
                   900
                  3600

Andrew Howroyd, Table of n, a(n) for n = 0..200

A000325 is the uniform version.
A076954 can be used instead of A006939.
A336416 gives the same for factorials instead of superprimorials.
A000217 counts prime power divisors of superprimorials.
A000961 gives prime powers.
A001597 gives perfect powers, with complement A007916.
A006939 gives superprimorials or Chernoff numbers.
A022915 counts permutations of prime indices of superprimorials.
A091050 counts perfect power divisors.
A181818 gives products of superprimorials.
A294068 counts factorizations using perfect powers.
A317829 counts factorizations of superprimorials.
Cf. A000005, A027423, A090630, A118914, A124010, A203025, A251753, A327527, A336419, A336420, A336421, A336426.

chern[n_]:=Product[Prime[i]^(n-i+1),{i,n}];
perpouQ[n_]:=Or[n==1,GCD@@FactorInteger[n][[All,2]]>1];
Table[Length[Select[Divisors[chern[n]],perpouQ]],{n,0,5}]

a(n) = {1 + sum(k=2, n, moebius(k)*(1 - prod(i=1, n, 1 + i\k)))} \\ Andrew Howroyd, Aug 30 2020

a(n) = A091050(A006939(n)).

a(n) = 1 + Sum_{k=2..n} mu(k)*(1 - Product_{i=1..n} 1 + floor(i/k)). - Andrew Howroyd, Aug 30 2020

Terms a(10) and beyond from Andrew Howroyd, Aug 30 2020

A336419 Number of divisors d of the n-th superprimorial A006939(n) with distinct prime exponents such that the quotient A006939(n)/d also has distinct prime exponents.

Original entry on oeis.org

1, 2, 4, 10, 24, 64, 184, 536, 1608, 5104, 16448, 55136, 187136, 658624, 2339648, 8618208, 31884640, 121733120, 468209408, 1849540416, 7342849216

Offset: 0

Gus Wiseman, Jul 25 2020

A number has distinct prime exponents iff its prime signature is strict.

The n-th superprimorial or Chernoff number is A006939(n) = Product_{i = 1..n} prime(i)^(n - i + 1).

			The a(0) = 1 through a(3) = 10 divisors:
  1  2  12  360
-----------------
  1  1   1    1
     2   3    5
         4    8
        12    9
             18
             20
             40
             45
             72
            360

A000110 shifted once to the left dominates this sequence.
A006939 lists superprimorials or Chernoff numbers.
A022915 counts permutations of prime indices of superprimorials.
A130091 lists numbers with distinct prime exponents.
A181796 counts divisors with distinct prime exponents.
A181818 gives products of superprimorials.
A317829 counts factorizations of superprimorials.
A336417 counts perfect-power divisors of superprimorials.
Cf. A000005, A000178, A008278, A071625, A076954, A118914, A124010, A327498, A327527, A336420, A336421, A336426, A336500, A336568.

chern[n_]:=Product[Prime[i]^(n-i+1),{i,n}];
Table[Length[Select[Divisors[chern[n]],UnsameQ@@Last/@FactorInteger[#]&&UnsameQ@@Last/@FactorInteger[chern[n]/#]&]],{n,0,6}]

recurse(n,k,b,d)={if(k>n, 1, sum(i=0, k, if((i==0||!bittest(b,i)) && (i==k||!bittest(d,k-i)), self()(n, k+1, bitor(b, 1<Andrew Howroyd, Aug 30 2020

a(10)-a(20) from Andrew Howroyd, Aug 31 2020

A337070 Number of strict chains of divisors starting with the superprimorial A006939(n).

Original entry on oeis.org

1, 2, 16, 1208, 1383936, 32718467072, 20166949856488576, 391322675415566237681536

Offset: 0

Gus Wiseman, Aug 15 2020

The n-th superprimorial is A006939(n) = Product_{i = 1..n} prime(i)^(n - i + 1).

			The a(0) = 1 through a(2) = 16 chains:
  1  2    12
     2/1  12/1
          12/2
          12/3
          12/4
          12/6
          12/2/1
          12/3/1
          12/4/1
          12/4/2
          12/6/1
          12/6/2
          12/6/3
          12/4/2/1
          12/6/2/1
          12/6/3/1

A022915 is the maximal case.
A076954 can be used instead of A006939 (cf. A307895, A325337).
A336571 is the case with distinct prime multiplicities.
A336941 is the case ending with 1.
A337071 is the version for factorials.
A000005 counts divisors.
A000142 counts divisors of superprimorials.
A006939 lists superprimorials or Chernoff numbers.
A067824 counts chains of divisors starting with n.
A074206 counts chains of divisors from n to 1.
A253249 counts chains of divisors.
A317829 counts factorizations of superprimorials.
Cf. A001055, A002033, A167865, A181818, A336420, A336423, A336942, A337074.

chern[n_]:=Product[Prime[i]^(n-i+1),{i,n}];
chnsc[n_]:=If[n==1,{{1}},Prepend[Join@@Table[Prepend[#,n]&/@chnsc[d],{d,Most[Divisors[n]]}],{n}]];
Table[Length[chnsc[chern[n]]],{n,0,3}]

a(n) = 2*A336941(n) for n > 0.

a(n) = A067824(A006939(n)).

A336421 Number of ways to choose a divisor of a divisor, both having distinct prime exponents, of the n-th superprimorial number A006939(n).

Original entry on oeis.org

1, 3, 13, 76, 571, 5309, 59341, 780149

Offset: 0

Gus Wiseman, Jul 25 2020

A number has distinct prime exponents iff its prime signature is strict.

The n-th superprimorial or Chernoff number is A006939(n) = Product_{i = 1..n} prime(i)^(n - i + 1).

			The a(2) = 13 ways:
  12/1/1  12/2/1  12/3/1  12/4/1  12/12/1
          12/2/2  12/3/3  12/4/2  12/12/2
                          12/4/4  12/12/3
                                  12/12/4
                                  12/12/12

A000258 shifted once to the left is dominated by this sequence.
A336422 is the generalization to non-superprimorials.
A000110 counts divisors of superprimorials with distinct prime exponents.
A006939 lists superprimorials or Chernoff numbers.
A008302 counts divisors of superprimorials by bigomega.
A022915 counts permutations of prime indices of superprimorials.
A076954 can be used instead of A006939.
A130091 lists numbers with distinct prime exponents.
A181796 counts divisors with distinct prime exponents.
A181818 gives products of superprimorials.
A317829 counts factorizations of superprimorials.
Cf. A000005, A008278, A027423, A071625, A118914, A124010, A327498, A336417, A336419, A336420, A336426, A336500, A336568.

chern[n_]:=Product[Prime[i]^(n-i+1),{i,n}];
strsig[n_]:=UnsameQ@@Last/@FactorInteger[n];
Table[Total[Cases[Divisors[chern[n]],d_?strsig:>Count[Divisors[d],e_?strsig]]],{n,0,5}]

A336941 Number of strict chains of divisors starting with the superprimorial A006939(n) and ending with 1.

Original entry on oeis.org

1, 1, 8, 604, 691968, 16359233536, 10083474928244288, 195661337707783118840768, 139988400203593571474134024847360, 4231553868972506381329450624389969130848256, 6090860257621637852755610879241895108657182173073604608, 464479854191019594417264488167571483344961210693790188774166838214656

Offset: 0

Gus Wiseman, Aug 13 2020

nonn

			The a(2) = 8 chains:
  12/1
  12/2/1
  12/3/1
  12/4/1
  12/6/1
  12/4/2/1
  12/6/2/1
  12/6/3/1

Andrew Howroyd, Table of n, a(n) for n = 0..25

A022915 is the maximal case.
A076954 can be used instead of A006939.
A336571 is the case with distinct prime multiplicities.
A336942 is the case using members of A130091.
A337070 is the version ending with any divisor of A006939(n).
A000005 counts divisors.
A074206 counts chains of divisors from n to 1.
A006939 lists superprimorials or Chernoff numbers.
A067824 counts divisor chains starting with n.
A181818 gives products of superprimorials, with complement A336426.
A253249 counts chains of divisors.
A317829 counts factorizations of superprimorials.
A336423 counts chains using A130091, with maximal case A336569.
Cf. A000142, A001055, A002033, A008480, A022559, A027423, A124010, A167865, A181796, A336417, A336420, A337069.

chern[n_]:=Product[Prime[i]^(n-i+1),{i,n}];
chns[n_]:=If[n==1,1,Sum[chns[d],{d,Most[Divisors[n]]}]];
Table[chns[chern[n]],{n,0,3}]

a(n)={my(sig=vector(n,i,i), m=vecsum(sig)); sum(k=0, m, prod(i=1, #sig, binomial(sig[i]+k-1, k-1))*sum(r=k, m, binomial(r,k)*(-1)^(r-k)))} \\ Andrew Howroyd, Aug 30 2020

a(n) = A337070(n)/2 for n > 0.

a(n) = A074206(A006939(n)).

Terms a(8) and beyond from Andrew Howroyd, Aug 30 2020

A336942 Number of strict chains of divisors in A130091 (numbers with distinct prime multiplicities) starting with the superprimorial A006939(n) and ending with 1.

Original entry on oeis.org

1, 1, 5, 95, 8823, 4952323, 20285515801, 714092378624317

Offset: 0

Gus Wiseman, Aug 14 2020

			The a(0) = 1 through a(2) = 5 chains:
  {1}  {2,1}  {12,1}
              {12,2,1}
              {12,3,1}
              {12,4,1}
              {12,4,2,1}

A076954 can be used instead of A006939 (cf. A307895, A325337).
A336423 and A336571 are not restricted to A006939.
A336941 is the version not restricted by A130091.
A337075 is the version for factorials.
A074206 counts chains of divisors from n to 1.
A130091 lists numbers with distinct prime multiplicities.
A181796 counts divisors with distinct prime multiplicities.
A253249 counts chains of divisors.
A327498 gives the maximum divisor with distinct prime multiplicities.
A336422 counts divisible pairs of divisors, both in A130091.
A336424 counts factorizations using A130091.
Cf. A000005, A001055, A002033, A032741, A067824, A124010, A167865, A336419, A336420, A336500, A336568.

chern[n_]:=Product[Prime[i]^(n-i+1),{i,n}];
chnstr[n_]:=If[n==1,1,Sum[chnstr[d],{d,Select[Most[Divisors[n]],UnsameQ@@Last/@FactorInteger[#]&]}]];
Table[chnstr[chern[n]],{n,0,3}]

a(n) = A336423(A006939(n)) = A336571(A006939(n)).

A337069 Number of strict factorizations of the superprimorial A006939(n).

Original entry on oeis.org

1, 1, 3, 34, 1591, 360144, 442349835, 3255845551937, 156795416820025934, 53452979022001011490033, 138542156296245533221812350867, 2914321438328993304235584538307144802, 528454951438415221505169213611461783474874149, 873544754831735539240447436467067438924478174290477803

Offset: 0

Gus Wiseman, Aug 15 2020

nonn

The n-th superprimorial is A006939(n) = Product_{i = 1..n} prime(i)^(n - i + 1).

Also the number of strict multiset partitions of {1,2,2,3,3,3,...,n}, a multiset with i copies of i for i = 1..n.

			The a(3) = 34 factorizations:
  2*3*4*15  2*3*60   2*180  360
  2*3*5*12  2*4*45   3*120
  2*3*6*10  2*5*36   4*90
  2*4*5*9   2*6*30   5*72
  3*4*5*6   2*9*20   6*60
            2*10*18  8*45
            2*12*15  9*40
            3*4*30   10*36
            3*5*24   12*30
            3*6*20   15*24
            3*8*15   18*20
            3*10*12
            4*5*18
            4*6*15
            4*9*10
            5*6*12
            5*8*9

A022915 counts permutations of the same multiset.
A157612 is the version for factorials instead of superprimorials.
A317829 is the non-strict version.
A337072 is the non-strict version with squarefree factors.
A337073 is the case with squarefree factors.
A000217 counts prime factors (with multiplicity) of superprimorials.
A001055 counts factorizations.
A006939 lists superprimorials or Chernoff numbers.
A045778 counts strict factorizations.
A076954 can be used instead of A006939 (cf. A307895, A325337).
A181818 lists products of superprimorials, with complement A336426.
A322583 counts factorizations into factorials.
Cf. A000142, A000178, A002110, A022559, A027423, A303279, A318286, A322583, A337070, A337071.

chern[n_]:=Product[Prime[i]^(n-i+1),{i,n}];
stfa[n_]:=If[n<=1,{{}},Join@@Table[Map[Prepend[#,d]&,Select[stfa[n/d],Min@@#>d&]],{d,Rest[Divisors[n]]}]];
Table[Length[stfa[chern[n]]],{n,0,3}]

\\ See A318286 for count.
a(n) = {if(n==0, 1, count(vector(n, i, i)))} \\ Andrew Howroyd, Sep 01 2020

a(n) = A045778(A006939(n)).

a(n) = A318286(A002110(n)). - Andrew Howroyd, Sep 01 2020

a(7)-a(13) from Andrew Howroyd, Sep 01 2020

A368508 Powers of superprimorials S(k)^m such that both k > 1 and m > 1, where S(n) = A006939(n).

Original entry on oeis.org

144, 1728, 20736, 129600, 248832, 2985984, 35831808, 46656000, 429981696, 5159780352, 5715360000, 16796160000, 61917364224, 743008370688, 6046617600000, 8916100448256, 106993205379072, 432081216000000, 1283918464548864, 2176782336000000, 15407021574586368, 30497732496000000

Offset: 1

Michael De Vlieger, Dec 28 2023

Proper subset of A364930, which is the intersection of A286708 and A025487, and is in turn a proper subset of A364710. This is to say, a(n) is a product of primorials and is squareful and neither squarefree nor a prime power.

Michael De Vlieger, Table of n, a(n) for n = 1..1943

Cf. A002110 (squarefree kernels), A006939, A025487, A126706, A286708, A364930, A368507.

nn = 2^120; k = 2; P = 6; Q = 2 P; Union@ Reap[While[j = 2; While[Q^j < nn, Sow[Q^j]; j++]; j > 2, k++; P *= Prime[k]; Q *= P] ][[-1, 1]]

cp's OEIS Frontend

A181818 Products of superprimorials (A006939).

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

PARI

A336420 Irregular triangle read by rows where T(n,k) is the number of divisors of the n-th superprimorial A006939(n) with distinct prime multiplicities and k prime factors counted with multiplicity.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

A336417 Number of perfect-power divisors of superprimorials A006939.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

PARI

Formula

Extensions

A336419 Number of divisors d of the n-th superprimorial A006939(n) with distinct prime exponents such that the quotient A006939(n)/d also has distinct prime exponents.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

PARI

Extensions

A337070 Number of strict chains of divisors starting with the superprimorial A006939(n).

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

Formula

A336421 Number of ways to choose a divisor of a divisor, both having distinct prime exponents, of the n-th superprimorial number A006939(n).

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

A336941 Number of strict chains of divisors starting with the superprimorial A006939(n) and ending with 1.

Views

Author

Keywords

Examples

Links

Crossrefs

Programs

Mathematica

PARI

Formula

Extensions

A336942 Number of strict chains of divisors in A130091 (numbers with distinct prime multiplicities) starting with the superprimorial A006939(n) and ending with 1.

Views

Author

Keywords