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 51-60 of 112 results. Next

A326847 Heinz numbers of integer partitions of m >= 0 using divisors of m whose length also divides m.

Original entry on oeis.org

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

Views

Author

Gus Wiseman, Jul 26 2019

Keywords

Comments

First differs from A071139, A089352 and A086486 in lacking 60. First differs from A326837 in lacking 268.
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 A326842.

Examples

			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}
  30: {1,2,3}
  31: {11}
  32: {1,1,1,1,1}
  37: {12}
		

Crossrefs

Programs

  • Maple
    isA326847 := proc(n)
        psigsu := A056239(n) ;
        for ifs in ifactors(n)[2] do
            p := op(1,ifs) ;
            psig := numtheory[pi](p) ;
            if modp(psigsu,psig) <> 0 then
                return false;
            end if;
        end do:
        psigle := numtheory[bigomega](n) ;
        if modp(psigsu,psigle) = 0 then
            true;
        else
            false;
        end if;
    end proc:
    n := 1:
    for i from 2 to 3000 do
        if isA326847(i) then
            printf("%d %d\n",n,i);
            n := n+1 ;
        end if;
    end do: # R. J. Mathar, Aug 09 2019
  • Mathematica
    Select[Range[2,100],With[{y=Flatten[Cases[FactorInteger[#],{p_,k_}:>Table[PrimePi[p],{k}]]]},Divisible[Total[y],Length[y]]&&And@@IntegerQ/@(Total[y]/y)]&]

Formula

Intersection of A326841 and A316413.

A340606 Numbers whose prime indices (A112798) are all divisors of the number of prime factors (A001222).

Original entry on oeis.org

1, 2, 4, 6, 8, 9, 16, 20, 24, 32, 36, 50, 54, 56, 64, 81, 84, 96, 125, 126, 128, 144, 160, 176, 189, 196, 216, 240, 256, 294, 324, 360, 384, 400, 416, 441, 486, 512, 540, 576, 600, 624, 686, 729, 810, 864, 896, 900, 936, 968, 1000, 1024, 1029, 1040, 1088, 1215
Offset: 1

Views

Author

Gus Wiseman, Jan 24 2021

Keywords

Comments

A prime index of n is a number m such that prime(m) divides n. The multiset of prime indices of n is row n of A112798.

Examples

			The sequence of terms together with their prime indices begins:
   1: {}
   2: {1}
   4: {1,1}
   6: {1,2}
   8: {1,1,1}
   9: {2,2}
  16: {1,1,1,1}
  20: {1,1,3}
  24: {1,1,1,2}
  32: {1,1,1,1,1}
  36: {1,1,2,2}
  50: {1,3,3}
  54: {1,2,2,2}
  56: {1,1,1,4}
  64: {1,1,1,1,1,1}
  81: {2,2,2,2}
  84: {1,1,2,4}
  96: {1,1,1,1,1,2}
		

Crossrefs

Note: Heinz numbers are given in parentheses below.
The reciprocal version is A143773 (A316428).
These partitions are counted by A340693.
A120383 lists numbers divisible by all of their prime indices.
A324850 lists numbers divisible by the product of their prime indices.
A003963 multiplies together the prime indices of n.
A018818 counts partitions of n into divisors of n (A326841).
A047993 counts balanced partitions (A106529).
A067538 counts partitions of n whose length divides n (A316413).
A056239 adds up the prime indices of n.
A061395 selects the maximum prime index.
A067538 counts partitions of n whose maximum divides n (A326836).
A072233 counts partitions by sum and length.
A112798 lists the prime indices of each positive integer.
A168659 = partitions whose length is divisible by their maximum (A340609).
A168659 = partitions whose maximum is divisible by their length (A340610).
A289509 lists numbers with relatively prime prime indices.
A326842 = partitions of n whose length and parts all divide n (A326847).
A326843 = partitions of n whose length and maximum both divide n (A326837).
A340852 have a factorization with factors dividing length.

Programs

  • Mathematica
    primeMS[n_]:=If[n==1,{},Flatten[Cases[FactorInteger[n],{p_,k_}:>Table[PrimePi[p],{k}]]]];
    Select[Range[100],And@@IntegerQ/@(PrimeOmega[#]/primeMS[#])&]

A340830 Number of strict integer partitions of n such that every part is a multiple of the number of parts.

Original entry on oeis.org

1, 1, 1, 1, 1, 2, 1, 2, 1, 3, 1, 3, 1, 4, 1, 4, 1, 6, 1, 5, 2, 6, 1, 8, 1, 7, 4, 7, 1, 12, 1, 8, 6, 9, 1, 16, 1, 10, 9, 11, 1, 21, 1, 12, 13, 12, 1, 28, 1, 13, 17, 16, 1, 33, 1, 19, 22, 15, 1, 45, 1, 16, 28, 25, 1, 47, 1, 28, 34, 18
Offset: 1

Views

Author

Gus Wiseman, Feb 02 2021

Keywords

Examples

			The a(n) partitions for n = 1, 6, 10, 14, 18, 20, 24, 26, 30:
  1   6     10    14     18      20     24       26      30
      4,2   6,4   8,6    10,8    12,8   16,8     18,8    22,8
            8,2   10,4   12,6    14,6   18,6     20,6    24,6
                  12,2   14,4    16,4   20,4     22,4    26,4
                         16,2    18,2   22,2     24,2    28,2
                         9,6,3          14,10    14,12   16,14
                                        12,9,3   16,10   18,12
                                        15,6,3           20,10
                                                         15,9,6
                                                         18,9,3
                                                         21,6,3
                                                         15,12,3
		

Crossrefs

Note: A-numbers of Heinz-number sequences are in parentheses below.
The non-strict case is A143773 (A316428).
The case where length divides sum also is A340827.
The version for factorizations is A340851.
Factorization of this type are counted by A340853.
A018818 counts partitions into divisors (A326841).
A047993 counts balanced partitions (A106529).
A067538 counts partitions whose length/max divide sum (A316413/A326836).
A072233 counts partitions by sum and length, with strict case A008289.
A102627 counts strict partitions whose length divides sum.
A326850 counts strict partitions whose maximum part divides sum.
A326851 counts strict partitions with length and maximum dividing sum.
A340828 counts strict partitions with length divisible by maximum.
A340829 counts strict partitions with Heinz number divisible by sum.

Programs

  • Mathematica
    Table[Length[Select[IntegerPartitions[n],UnsameQ@@#&&And@@IntegerQ/@(#/Length[#])&]],{n,30}]

Formula

a(n) = Sum_{d|n} A008289(n/d, d).

A343345 Number of integer partitions of n that are empty, or have smallest part dividing all the others, but do not have greatest part divisible by all the others.

Original entry on oeis.org

1, 0, 0, 0, 0, 0, 1, 1, 4, 6, 11, 16, 29, 36, 59, 79, 115, 149, 216, 270, 379, 473, 634, 793, 1063, 1292, 1689, 2079, 2667, 3241, 4142, 4982, 6291, 7582, 9434, 11321, 14049, 16709, 20545, 24490, 29860, 35380, 43004, 50741, 61282, 72284, 86680, 101906, 121990
Offset: 0

Views

Author

Gus Wiseman, Apr 15 2021

Keywords

Comments

First differs from A343346 at a(14) = 79, A343346(14) = 80.
Alternative name: Number of integer partitions of n with a part dividing all the others, but with no part divisible by all the others.

Examples

			The a(6) = 1 through a(11) = 16 partitions:
  (321)  (3211)  (431)    (531)     (541)      (641)
                 (521)    (3321)    (721)      (731)
                 (3221)   (4311)    (4321)     (4331)
                 (32111)  (5211)    (5221)     (5321)
                          (32211)   (5311)     (5411)
                          (321111)  (32221)    (7211)
                                    (33211)    (33221)
                                    (43111)    (43211)
                                    (52111)    (52211)
                                    (322111)   (53111)
                                    (3211111)  (322211)
                                               (332111)
                                               (431111)
                                               (521111)
                                               (3221111)
                                               (32111111)
		

Crossrefs

The first condition alone gives A083710.
The half-opposite versions are A130714 and A343342.
The Heinz numbers of these partitions are 1 and A343340.
The second condition alone gives A343341.
The opposite version is A343344.
The strict case is A343381.
A000009 counts strict partitions.
A000041 counts partitions.
A000070 counts partitions with a selected part.
A006128 counts partitions with a selected position.
A015723 counts strict partitions with a selected part.
A018818 counts partitions into divisors (strict: A033630).

Programs

  • Mathematica
    Table[Length[Select[IntegerPartitions[n],#=={}||And@@IntegerQ/@(#/Min@@#)&&!And@@IntegerQ/@(Max@@#/#)&]],{n,0,30}]

A343381 Number of strict integer partitions of n with a part dividing all the others but no part divisible by all the others.

Original entry on oeis.org

1, 0, 0, 0, 0, 0, 1, 0, 2, 1, 3, 3, 6, 4, 9, 9, 14, 14, 20, 20, 30, 30, 39, 44, 59, 59, 77, 85, 106, 114, 145, 150, 191, 205, 247, 267, 328, 345, 418, 455, 544, 582, 699, 745, 886, 962, 1117, 1209, 1430, 1523, 1778, 1932, 2225, 2406, 2792, 3001, 3456, 3750
Offset: 0

Views

Author

Gus Wiseman, Apr 16 2021

Keywords

Comments

Alternative name: Number of strict integer partitions of n that are empty or (1) have smallest part dividing all the others and (2) have greatest part not divisible by all the others.

Examples

			The a(6) = 1 through a(16) = 14 partitions (empty column indicated by dot, A..D = 10..13):
  321   .  431   531   541    641    642    751    761    861     862
           521         721    731    651    5431   851    951     871
                       4321   5321   741    6421   941    A41     961
                                     831    7321   A31    B31     A42
                                     921           B21    6531    B41
                                     5421          6431   7431    D21
                                                   6521   7521    6541
                                                   7421   9321    7531
                                                   8321   54321   7621
                                                                  8431
                                                                  8521
                                                                  9421
                                                                  A321
                                                                  64321
		

Crossrefs

The first condition alone gives A097986.
The non-strict version is A343345 (Heinz numbers: A343340).
The second condition alone gives A343377.
The half-opposite versions are A343378 and A343379.
The opposite (and dual) version is A343380.
A000005 counts divisors.
A000009 counts strict partitions.
A000070 counts partitions with a selected part.
A006128 counts partitions with a selected position.
A015723 counts strict partitions with a selected part.
A018818 counts partitions into divisors (strict: A033630).
A167865 counts strict chains of divisors > 1 summing to n.
A339564 counts factorizations with a selected factor.

Programs

  • Mathematica
    Table[Length[Select[IntegerPartitions[n],#=={}||UnsameQ@@#&&And@@IntegerQ/@(#/Min@@#)&&!And@@IntegerQ/@(Max@@#/#)&]],{n,0,30}]

A210442 Number of partitions of n into proper divisors of n, cf. A027751.

Original entry on oeis.org

1, 0, 1, 1, 3, 1, 7, 1, 9, 4, 10, 1, 44, 1, 13, 13, 35, 1, 80, 1, 91, 17, 19, 1, 457, 6, 22, 22, 155, 1, 741, 1, 201, 25, 28, 25, 2233, 1, 31, 29, 1369, 1, 1653, 1, 336, 285, 37, 1, 9675, 8, 406, 37, 453, 1, 3131, 37, 3064, 41, 46, 1, 73154, 1, 49, 492, 1827
Offset: 0

Views

Author

Reinhard Zumkeller, Jan 21 2013

Keywords

Comments

For n > 0: a(A000040(n)) = 1 and a(A002808(n)) > 1.

Crossrefs

Programs

  • Haskell
    a210442 n = p (a027751_row n) n where
       p _          0 = 1
       p []         _ = 0
       p ks'@(k:ks) m = if m < k then 0 else p ks' (m - k) + p ks m
  • Maple
    with(numtheory):
    a:= proc(n) local b, l; l:= sort([(divisors(n) minus {n})[]]):
          b:= proc(m, i) option remember; `if`(m=0 or i=1, 1,
                `if`(i<1, 0, b(m, i-1)+`if`(l[i]>m, 0, b(m-l[i], i))))
              end; forget(b):
          b(n, nops(l))
        end:
    seq(a(n), n=0..100); # Alois P. Heinz, Jan 29 2013
  • Mathematica
    a[n_] := Module[{b, l}, l = Most[Divisors[n]]; b[m_, i_] := b[m, i] = If[m==0 || i==1, 1, If[i<1, 0, b[m, i-1] + If[l[[i]]>m, 0, b[m-l[[i]], i]]]]; b[n, Length[l]]]; a[0]=1; Table[a[n], {n, 0, 100}] (* Jean-François Alcover, Feb 02 2017, after Alois P. Heinz *)

A343380 Number of strict integer partitions of n with no part dividing all the others but with a part divisible by all the others.

Original entry on oeis.org

1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 2, 0, 1, 0, 1, 1, 4, 0, 1, 0, 2, 0, 4, 0, 3, 1, 2, 2, 5, 0, 5, 3, 4, 1, 9, 1, 5, 2, 4, 5, 11, 1, 6, 4, 11, 3, 13, 5, 10, 4, 11, 8, 14, 3, 10, 6, 9, 3, 15, 6, 14, 10, 18, 8
Offset: 0

Views

Author

Gus Wiseman, Apr 16 2021

Keywords

Comments

Alternative name: Number of strict integer partitions of n that are either empty or (1) have smallest part not dividing all the others and (2) have greatest part divisible by all the others.

Examples

			The a(11) = 1 through a(29) = 4 partitions (empty columns indicated by dots, A..O = 10..24):
  632  .  .  .  .  .  A52  .  C43  .  C432  C64  E72   .  C643  .  K52    .  I92
                      C32                        F53               C6432     K54
                                                 I32                         O32
                                                 C632                        I632
		

Crossrefs

The first condition alone gives A341450.
The non-strict version is A343344 (Heinz numbers: A343339).
The second condition alone gives A343347.
The half-opposite versions are A343378 and A343379.
The opposite (and dual) version is A343381.
A000009 counts strict partitions.
A000041 counts partitions.
A000070 counts partitions with a selected part.
A006128 counts partitions with a selected position.
A015723 counts strict partitions with a selected part.
A018818 counts partitions into divisors (strict: A033630).
A167865 counts strict chains of divisors > 1 summing to n.
A339564 counts factorizations with a selected factor.

Programs

  • Mathematica
    Table[Length[Select[IntegerPartitions[n],#=={}||UnsameQ@@#&&!And@@IntegerQ/@(#/Min@@#)&&And@@IntegerQ/@(Max@@#/#)&]],{n,0,30}]

A066874 Number of partitions of n into unitary divisors of n.

Original entry on oeis.org

1, 2, 2, 2, 2, 8, 2, 2, 2, 11, 2, 12, 2, 14, 14, 2, 2, 17, 2, 17, 18, 20, 2, 20, 2, 23, 2, 22, 2, 742, 2, 2, 26, 29, 26, 27, 2, 32, 30, 29, 2, 1654, 2, 32, 32, 38, 2, 36, 2, 41, 38, 37, 2, 44, 38, 38, 42, 47, 2, 3004, 2, 50, 42, 2, 44, 5257, 2, 47, 50, 5066, 2, 47, 2, 59, 54, 52, 50
Offset: 1

Views

Author

Naohiro Nomoto, Jan 26 2002

Keywords

Examples

			a(12) = 12 because the unitary divisors of 12 are 1, 3, 4 and 12; and the partitions are 12, 4+4+4, 4+4+3+1, 4+4+(4x1), 4+3+3+1+1, 4+3+(5x1), 4+(8x1), 3+3+3+3, 3+3+3+1+1+1, 3+3+(6x1), 3+(9x1) and 12x1.
		

Crossrefs

Programs

  • PARI
    unitary_divisors(n) = select(d -> (1==gcd(d,n/d)), divisors(n));
    partitions_into(n,parts,from=1) = if(!n,1,my(k = #parts, s=0); for(i=from,k,if(parts[i]<=n, s += partitions_into(n-parts[i],parts,i))); (s));
    A066874(n) = partitions_into(n,vecsort(unitary_divisors(n), , 4)); \\ Antti Karttunen, Aug 06 2018
    
  • PARI
    See Corneth link. \\ David A. Corneth, Aug 12 2018

Extensions

More terms from David Wasserman, Nov 21 2002

A271654 a(n) = Sum_{k|n} binomial(n-1,k-1).

Original entry on oeis.org

1, 2, 2, 5, 2, 17, 2, 44, 30, 137, 2, 695, 2, 1731, 1094, 6907, 2, 30653, 2, 97244, 38952, 352739, 2, 1632933, 10628, 5200327, 1562602, 20357264, 2, 87716708, 2, 303174298, 64512738, 1166803145, 1391282, 4978661179, 2, 17672631939, 2707475853, 69150651910, 2, 286754260229, 2, 1053966829029, 115133177854, 4116715363847, 2, 16892899722499, 12271514, 63207357886437
Offset: 1

Views

Author

Keywords

Comments

Also the number of compositions of n whose length divides n, i.e., compositions with integer mean, ranked by A096199. - Gus Wiseman, Sep 28 2022

Examples

			From _Gus Wiseman_, Sep 28 2022: (Start)
The a(1) = 1 through a(6) = 17 compositions with integer mean:
  (1)  (2)    (3)      (4)        (5)          (6)
       (1,1)  (1,1,1)  (1,3)      (1,1,1,1,1)  (1,5)
                       (2,2)                   (2,4)
                       (3,1)                   (3,3)
                       (1,1,1,1)               (4,2)
                                               (5,1)
                                               (1,1,4)
                                               (1,2,3)
                                               (1,3,2)
                                               (1,4,1)
                                               (2,1,3)
                                               (2,2,2)
                                               (2,3,1)
                                               (3,1,2)
                                               (3,2,1)
                                               (4,1,1)
                                               (1,1,1,1,1,1)
(End)
		

Crossrefs

Cf. A056045.
The version for nonempty subsets is A051293, geometric A326027.
The version for partitions is A067538, ranked by A316413, strict A102627.
These compositions are ranked by A096199.
The version for factorizations is A326622, geometric A326028.
A011782 counts compositions.
A067539 = partitions w integer geo mean, ranked by A326623, strict A326625.
A100346 counts compositions into divisors, partitions A018818.

Programs

  • Maple
    a:= n-> add(binomial(n-1, d-1), d=numtheory[divisors](n)):
    seq(a(n), n=1..50);  # Alois P. Heinz, Dec 03 2023
  • Mathematica
    Table[Length[Join @@ Permutations/@Select[IntegerPartitions[n],IntegerQ[Mean[#]]&]],{n,15}] (* Gus Wiseman, Sep 28 2022 *)
  • PARI
    a(n)=sumdiv(n,k,binomial(n-1,k-1))

A340827 Number of strict integer partitions of n into divisors of n whose length also divides n.

Original entry on oeis.org

1, 1, 1, 1, 1, 2, 1, 1, 1, 1, 1, 3, 1, 1, 1, 1, 1, 2, 1, 2, 1, 1, 1, 5, 1, 1, 1, 1, 1, 3, 1, 1, 1, 1, 1, 5, 1, 1, 1, 3, 1, 2, 1, 1, 1, 1, 1, 6, 1, 1, 1, 1, 1, 2, 1, 1, 1, 1, 1, 25, 1, 1, 1, 1, 1, 2, 1, 1, 1, 1, 1, 18, 1, 1, 1, 1, 1, 2, 1, 3, 1, 1, 1, 17, 1, 1, 1, 1, 1, 14, 1, 1, 1, 1, 1, 12, 1, 1, 1, 3, 1, 2, 1, 1, 1
Offset: 1

Views

Author

Gus Wiseman, Feb 01 2021

Keywords

Comments

The first element not in A326715 that is however a Heinz number of these partitions is 273.

Examples

			The a(n) partitions for n = 6, 12, 24, 90, 84:
  6       12        24            90                      84
  3,2,1   6,4,2     12,8,4        45,30,15                42,28,14
          6,3,2,1   12,6,4,2      45,30,9,5,1             42,21,14,7
                    12,8,3,1      45,18,15,9,3            42,28,12,2
                    8,6,4,3,2,1   45,30,10,3,2            42,28,6,4,3,1
                                  45,18,15,10,2           42,28,7,4,2,1
                                  45,30,6,5,3,1           42,14,12,7,6,3
                                  45,30,9,3,2,1           42,21,12,4,3,2
                                  45,15,10,9,6,5          42,21,12,6,2,1
                                  45,18,10,9,5,3          42,21,14,4,2,1
                                  45,18,10,9,6,2          28,21,14,12,6,3
                                  45,18,15,6,5,1          28,21,14,12,7,2
                                  45,18,15,9,2,1          42,21,7,6,4,3,1
                                  30,18,15,10,6,5,3,2,1   42,14,12,7,4,3,2
                                                          42,14,12,7,6,2,1
                                                          28,21,14,12,4,3,2
                                                          28,21,14,12,6,2,1
		

Crossrefs

Note: A-numbers of Heinz-number sequences are in parentheses below.
The non-strict case is A326842 (A326847).
A018818 = partitions using divisors (A326841).
A047993 = balanced partitions (A106529).
A067538 = partitions whose length/maximum divides sum (A316413/A326836).
A072233 = partitions by sum and length, with strict case A008289.
A102627 = strict partitions whose length divides sum.
A326850 = strict partitions whose maximum part divides sum.
A326851 = strict partitions w/ length and max dividing sum.
A340828 = strict partitions w/ length divisible by max.
A340829 = strict partitions w/ Heinz number divisible by sum.
A340830 = strict partitions w/ parts divisible by length.

Programs

  • Mathematica
    Table[Length[Select[IntegerPartitions[n,All,Divisors[n]],UnsameQ@@#&&Divisible[n,Length[#]]&]],{n,30}]
  • PARI
    A340827(n, divsleft=List(divisors(n)), rest=n, len=0) = if(rest<=0, !rest && !(n%len), my(s=0, d); forstep(i=#divsleft, 1, -1, d = divsleft[i]; listpop(divsleft,i); if(rest>=d, s += A340827(n, divsleft, rest-d, 1+len))); (s)); \\ Antti Karttunen, Feb 22 2023
    
  • Scheme
    ;; See the Links-section. - Antti Karttunen, Feb 22 2023

Extensions

Data section extended up to a(105) by Antti Karttunen, Feb 22 2023
Previous Showing 51-60 of 112 results. Next