cp's OEIS Frontend

This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.

Previous Showing 11-13 of 13 results.

A336425 Number of ways to choose a divisor with distinct prime exponents of a divisor with distinct prime exponents of n!.

Original entry on oeis.org

1, 1, 3, 5, 24, 38, 132, 195, 570, 1588, 4193, 6086, 14561, 19232, 37142, 106479, 207291, 266871, 549726, 674330, 1465399, 3086598, 5939574, 7182133, 12324512, 28968994, 46819193, 82873443, 165205159, 196666406, 350397910, 406894074, 593725529, 1229814478, 1853300600, 4024414209, 6049714096, 6968090487, 9700557121, 16810076542, 26339337285
Offset: 0

Views

Author

Gus Wiseman, Aug 06 2020

Keywords

Examples

			The a(4) = 24 divisors of divisors:
  1/1  2/1  3/1  4/1  8/1  12/1   24/1
       2/2  3/3  4/2  8/2  12/2   24/2
                 4/4  8/4  12/3   24/3
                      8/8  12/4   24/4
                           12/12  24/8
                                  24/12
                                  24/24

Links

Crossrefs

A336422 is the non-factorial generalization.
A130091 lists numbers with distinct prime exponents.
A181796 counts divisors with distinct prime exponents.
A327526 gives the maximum divisor of n with equal prime exponents.
A327498 gives the maximum divisor of n with distinct prime exponents.
A336414 counts divisors of n! with distinct prime exponents.
A336415 counts divisors of n! with equal prime exponents.
A336423 counts chains in A130091, with maximal version A336569.
Cf. A000005, A000110, A098859, A118914, A124010, A336424, A336500, A336568, A336570, A336571, A336865, A336866, A336869.
Factorial numbers: A000142, A022559, A027423, A048656, A048742, A071626, A325272, A325273, A325617, A327499, A336416, A336418, A336617.

Programs

  • Mathematica
    strsigQ[n_]:=UnsameQ@@Last/@FactorInteger[n];
Table[Total[Cases[Divisors[n!],d_?strsigQ:>Count[Divisors[d],e_?strsigQ]]],{n,0,20}]

Extensions

Terms a(21) onward from Max Alekseyev, Nov 07 2024

A337104 Number of strict chains of divisors from n! to 1 using terms of A130091 (numbers with distinct prime multiplicities).

Original entry on oeis.org

1, 1, 1, 0, 14, 0, 384, 0, 0, 0, 21077680, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0
Offset: 0

Views

Author

Gus Wiseman, Aug 17 2020

Keywords

Comments

The support appears to be {0, 1, 2, 4, 6, 10}.

Examples

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

Crossrefs

A336867 appears to be the positions of zeros.
A336868 is the characteristic function (image under A057427).
A336942 is the version for superprimorials (n > 1).
A337105 does not require distinct prime multiplicities.
A337074 does not require chains to end with 1.
A337075 is the version for chains not containing n!.
A000005 counts divisors.
A000142 lists factorial numbers.
A001055 counts factorizations.
A027423 counts divisors of factorial numbers.
A067824 counts chains of divisors starting with n.
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.
A336414 counts divisors of n! with distinct prime multiplicities.
A336423 counts chains using A130091, with maximal case A336569.
A336425 counts divisible pairs of divisors of n!, both in A130091.
A336571 counts chains of divisors 1 < d < n using A130091.
A337071 counts chains of divisors starting with n!.
Cf. A002033, A022559, A071626, A098859, A124010, A167865, A327523, A336424, A336941.

Programs

  • Mathematica
    strchns[n_]:=If[n==1,1,If[!UnsameQ@@Last/@FactorInteger[n],0,Sum[strchns[d],{d,Select[DeleteCases[Divisors[n],n],UnsameQ@@Last/@FactorInteger[#]&]}]]];
Table[strchns[n!],{n,0,8}]

Formula

a(n) = A337075(n) whenever A337075(n) != 0.
a(n) = A337074(n)/2 for n > 1.
a(n) = A336423(n!).

A337075 Number of strict chains of divisors in A130091 (numbers with distinct prime multiplicities) starting with a proper divisor of n! and ending with 1.

Original entry on oeis.org

1, 1, 1, 3, 14, 48, 384, 1308, 40288, 933848, 21077680, 75690016, 5471262080, 7964665440, 54595767744, 17948164982144, 3454946386353664, 5010658671663616, 723456523262697984, 950502767770273280, 165679731871366906880, 8443707247468681128448
Offset: 0

Views

Author

Gus Wiseman, Aug 17 2020

Keywords

Examples

			The a(1) = 1 through a(4) = 14 chains (with n! prepended):
  1  2/1  6/1    24/1
          6/2/1  24/2/1
          6/3/1  24/3/1
                 24/4/1
                 24/8/1
                 24/12/1
                 24/4/2/1
                 24/8/2/1
                 24/8/4/1
                 24/12/2/1
                 24/12/3/1
                 24/12/4/1
                 24/8/4/2/1
                 24/12/4/2/1

Crossrefs

A336571 is the generalization to not just factorial numbers.
A337104 is the version for chains containing n!.
A000005 counts divisors.
A001055 counts factorizations.
A032741 counts proper divisors.
A071625 counts distinct prime multiplicities.
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.
A336414 counts divisors of n! with distinct prime multiplicities.
A336423 counts chains using A130091, with maximal case A336569.
A336424 counts factorizations using A130091.
A336425 counts divisible pairs of divisors of n!, both in A130091.
Cf. A002033, A098859, A124010, A294068, A327499, A327500, A327523, A337071.

Programs

  • Mathematica
    chnstr[n_]:=If[n==1,1,Sum[chnstr[d],{d,Select[Most[Divisors[n]],UnsameQ@@Last/@FactorInteger[#]&]}]];
Table[chnstr[n!],{n,0,5}]

Formula

a(n) = A337104(n) whenever A337104(n) != 0.
a(n) = A336571(n!).
Previous Showing 11-13 of 13 results.

Started in 1964 by Neil J. A. Sloane | Maintained by The OEIS Foundation Inc.

Content is available under The OEIS End-User License Agreement.