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-20 of 53 results. Next

A337462 Number of pairwise coprime compositions of n, where a singleton is not considered coprime unless it is (1).

Original entry on oeis.org

1, 1, 1, 3, 6, 12, 21, 37, 62, 100, 159, 253, 402, 634, 983, 1491, 2224, 3280, 4813, 7043, 10270, 14888, 21415, 30585, 43400, 61204, 85747, 119295, 164834, 226422, 309663, 422301, 574826, 781236, 1060181, 1436367, 1942588, 2622078, 3531151, 4742315, 6348410
Offset: 0

Views

Author

Gus Wiseman, Sep 18 2020

Keywords

Comments

A composition of n is a finite sequence of positive integers summing to n.

Examples

			The a(1) = 1 through a(5) = 12 compositions:
  (1)  (1,1)  (1,2)    (1,3)      (1,4)
              (2,1)    (3,1)      (2,3)
              (1,1,1)  (1,1,2)    (3,2)
                       (1,2,1)    (4,1)
                       (2,1,1)    (1,1,3)
                       (1,1,1,1)  (1,3,1)
                                  (3,1,1)
                                  (1,1,1,2)
                                  (1,1,2,1)
                                  (1,2,1,1)
                                  (2,1,1,1)
                                  (1,1,1,1,1)
		

Crossrefs

A000740 counts the relatively prime instead of pairwise coprime version.
A101268 considers all singletons to be coprime, with strict case A337562.
A327516 is the unordered version.
A333227 ranks these compositions, with complement A335239.
A337461 counts these compositions of length 3.
A337561 is the strict case.
A051424 counts pairwise coprime or singleton partitions.
A101268 counts pairwise coprime or singleton compositions.
A178472 counts compositions with a common factor.
A305713 counts strict pairwise coprime partitions.
A328673 counts pairwise non-coprime partitions.
A333228 ranks compositions whose distinct parts are pairwise coprime.
A337667 counts pairwise non-coprime compositions.

Programs

  • Mathematica
    Table[Length[Select[Join@@Permutations/@IntegerPartitions[n],#=={}||CoprimeQ@@#&]],{n,0,10}]

Formula

For n > 1, a(n) = A101268(n) - 1.

A335235 Numbers k such that the k-th composition in standard order (A066099) is pairwise coprime, where a singleton is always considered coprime.

Original entry on oeis.org

1, 2, 3, 4, 5, 6, 7, 8, 9, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 23, 24, 25, 27, 28, 29, 30, 31, 32, 33, 35, 37, 38, 39, 41, 44, 47, 48, 49, 50, 51, 52, 55, 56, 57, 59, 60, 61, 62, 63, 64, 65, 66, 67, 68, 71, 72, 75, 77, 78, 79, 80, 83, 89, 92, 95, 96, 97
Offset: 1

Views

Author

Gus Wiseman, May 28 2020

Keywords

Comments

The k-th composition in standard order (graded reverse-lexicographic, A066099) is obtained by taking the set of positions of 1's in the reversed binary expansion of k, prepending 0, taking first differences, and reversing again. This gives a bijective correspondence between nonnegative integers and integer compositions.

Examples

			The sequence together with the corresponding compositions begins:
   1: (1)          20: (2,3)          48: (1,5)
   2: (2)          23: (2,1,1,1)      49: (1,4,1)
   3: (1,1)        24: (1,4)          50: (1,3,2)
   4: (3)          25: (1,3,1)        51: (1,3,1,1)
   5: (2,1)        27: (1,2,1,1)      52: (1,2,3)
   6: (1,2)        28: (1,1,3)        55: (1,2,1,1,1)
   7: (1,1,1)      29: (1,1,2,1)      56: (1,1,4)
   8: (4)          30: (1,1,1,2)      57: (1,1,3,1)
   9: (3,1)        31: (1,1,1,1,1)    59: (1,1,2,1,1)
  11: (2,1,1)      32: (6)            60: (1,1,1,3)
  12: (1,3)        33: (5,1)          61: (1,1,1,2,1)
  13: (1,2,1)      35: (4,1,1)        62: (1,1,1,1,2)
  14: (1,1,2)      37: (3,2,1)        63: (1,1,1,1,1,1)
  15: (1,1,1,1)    38: (3,1,2)        64: (7)
  16: (5)          39: (3,1,1,1)      65: (6,1)
  17: (4,1)        41: (2,3,1)        66: (5,2)
  18: (3,2)        44: (2,1,3)        67: (5,1,1)
  19: (3,1,1)      47: (2,1,1,1,1)    68: (4,3)
		

Crossrefs

The version counting partitions is A051424, with strict case A007360.
The version for binary indices is A087087.
The version counting compositions is A101268.
The version for prime indices is A302569.
The case without singletons is A333227.
The complement is A335236.
Numbers whose binary indices are pairwise coprime are A326675.
Coprime partitions are counted by A327516.
All of the following pertain to compositions in standard order:
- Length is A000120.
- The parts are row k of A066099.
- Sum is A070939.
- Product is A124758.
- Reverse is A228351
- GCD is A326674.
- Heinz number is A333219.
- LCM is A333226.

Programs

  • Mathematica
    stc[n_]:=Differences[Prepend[Join@@Position[Reverse[IntegerDigits[n,2]],1],0]]//Reverse;
    Select[Range[0,100],Length[stc[#]]==1||CoprimeQ@@stc[#]&]

A055684 Number of different n-pointed stars.

Original entry on oeis.org

0, 0, 1, 0, 2, 1, 2, 1, 4, 1, 5, 2, 3, 3, 7, 2, 8, 3, 5, 4, 10, 3, 9, 5, 8, 5, 13, 3, 14, 7, 9, 7, 11, 5, 17, 8, 11, 7, 19, 5, 20, 9, 11, 10, 22, 7, 20, 9, 15, 11, 25, 8, 19, 11, 17, 13, 28, 7, 29, 14, 17, 15, 23, 9, 32, 15, 21, 11, 34, 11, 35, 17, 19, 17, 29, 11
Offset: 3

Views

Author

Robert G. Wilson v, Jun 09 2000

Keywords

Comments

Does not count rotations or reflections.
This is also the distinct ways of writing a number as the sum of two positive integers greater than one that are coprimes. - Lei Zhou, Mar 19 2014
Equivalently, a(n) is the number of relatively prime 2-part partitions of n without 1's. The Heinz numbers of these partitions are the intersection of A001358 (pairs), A005408 (no 1's), and A000837 (relatively prime) or A302696 (pairwise coprime). - Gus Wiseman, Oct 28 2020

Examples

			The first star has five points and is unique. The next is the seven pointed star and it comes in two varieties.
From _Gus Wiseman_, Oct 28 2020: (Start)
The a(5) = 1 through a(17) = 7 irreducible pairs > 1 (shown as fractions, empty column indicated by dot):
  2/3  .  2/5  3/5  2/7  3/7  2/9  5/7  2/11  3/11  2/13  3/13  2/15
          3/4       4/5       3/8       3/10  5/9   4/11  5/11  3/14
                              4/7       4/9         7/8   7/9   4/13
                              5/6       5/8                     5/12
                                        6/7                     6/11
                                                                7/10
                                                                8/9
(End)
		

References

  • Mark A. Herkommer, "Number Theory, A Programmer's Guide," McGraw-Hill, New York, 1999, page 58.

Crossrefs

Cf. A023022.
Cf. A053669 smallest skip increment, A102302 skip increment of densest star polygon.
A055684*2 is the ordered version.
A082023 counts the complement (reducible pairs > 1).
A220377, A337563, and A338332 count triples instead of pairs.
A000837 counts relatively prime partitions, with strict case A078374.
A002865 counts partitions with no 1's, with strict case A025147.
A007359 and A337485 count pairwise coprime partitions with no 1's.
A302698 counts relatively prime partitions with no 1's, with strict case A337452.
A327516 counts pairwise coprime partitions, with strict case A305713.
A337450 counts relatively prime compositions with no 1's, with strict case A337451.

Programs

  • Maple
    with(numtheory): A055684 := n->(phi(n)-2)/2; seq(A055684(n), n=3..100);
  • Mathematica
    Table[(EulerPhi[n]-2)/2, {n, 3, 50}]
    Table[Length[Select[IntegerPartitions[n,{2}],!MemberQ[#,1]&&CoprimeQ@@#&]],{n,0,30}] (* Gus Wiseman, Oct 28 2020 *)

Formula

a(n) = A023022(n) - 1.
a(n) + A082023(n) = A140106(n). - Gus Wiseman, Oct 28 2020

A304709 Number of integer partitions of n whose distinct parts are pairwise coprime.

Original entry on oeis.org

1, 1, 2, 3, 6, 7, 13, 16, 23, 29, 42, 49, 69, 83, 102, 126, 161, 191, 239, 281, 336, 402, 484, 566, 672, 787, 919, 1067, 1251, 1449, 1684, 1934, 2223, 2554, 2920, 3341, 3821, 4344, 4928, 5586, 6334, 7163, 8091, 9100, 10228, 11492, 12902, 14449, 16167, 18058
Offset: 1

Views

Author

Gus Wiseman, May 17 2018

Keywords

Comments

Two parts are coprime if they have no common divisor greater than 1. For partitions of length 1 note that (1) is coprime but (x) is not coprime for x > 1.

Examples

			The a(6) = 7 integer partitions of 6 whose distinct parts are pairwise coprime are (51), (411), (321), (3111), (2211), (21111), (111111).
		

Crossrefs

Programs

  • Mathematica
    Table[Select[IntegerPartitions[n],CoprimeQ@@Union[#]&]//Length,{n,20}]
  • PARI
    lista(nn)={local(Cache=Map());
      my(excl=vector(nn, n, sum(i=1, n-1, if(gcd(i,n)>1, 2^(n-i)))));
      my(c(n, m, b)=
         if(n==0, 1,
            while(m>n || bittest(b,0), m--; b>>=1);
            my(hk=[n, m, b], z);
            if(!mapisdefined(Cache, hk, &z),
              z = if(m, self()(n, m-1, b>>1) + self()(n-m, m, bitor(b, excl[m])), 0);
              mapput(Cache, hk, z)); z));
      my(a(n)=c(n, n, 0) + 1 - numdiv(n));
      for(n=1, nn, print1(a(n), ", "))
    } \\ Andrew Howroyd, Nov 02 2019

Formula

a(n) = A304712(n) + 1 - A000005(n). - Andrew Howroyd, Nov 02 2019

A337563 Number of pairwise coprime unordered triples of positive integers > 1 summing to n.

Original entry on oeis.org

0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 2, 0, 2, 1, 4, 0, 7, 1, 7, 3, 9, 2, 15, 3, 13, 5, 17, 4, 29, 5, 20, 8, 28, 8, 42, 8, 31, 14, 42, 10, 59, 12, 45, 21, 52, 14, 77, 17, 68, 26, 69, 19, 101, 26, 84, 34, 86, 25, 138, 28, 95, 43, 111, 36, 161, 35, 118, 52, 151
Offset: 0

Views

Author

Gus Wiseman, Sep 21 2020

Keywords

Comments

Such partitions are necessarily strict.
The Heinz numbers of these partitions are the intersection of A005408 (no 1's), A014612 (triples), and A302696 (coprime).

Examples

			The a(10) = 1 through a(24) = 15 triples (empty columns indicated by dots, A..J = 10..19):
  532  .  543  .  743  753  754  .  765  B53  875  975  985  B75  987
          732     752       853     873       974  B73  B65  D73  B76
                            952     954       A73  D53  B74       B85
                            B32     972       B54       B83       B94
                                    B43       B72       B92       BA3
                                    B52       D43       D54       C75
                                    D32       D52       D72       D65
                                                        E53       D74
                                                        H32       D83
                                                                  D92
                                                                  F72
                                                                  G53
                                                                  H43
                                                                  H52
                                                                  J32
		

Crossrefs

A055684 is the version for pairs.
A220377 allows 1's, with non-strict version A307719.
A337485 counts these partitions of any length.
A337563*6 is the ordered version.
A001399(n - 3) = A069905(n) = A211540(n + 2) counts 3-part partitions.
A002865 counts partitions with no 1's, with strict case A025147.
A007359 counts pairwise coprime partitions with no 1's.
A078374 counts relatively prime strict partitions.
A200976 and A328673 count pairwise non-coprime partitions.
A302696 ranks pairwise coprime partitions.
A302698 counts relatively prime partitions with no 1's.
A305713 counts pairwise coprime strict partitions.
A327516 counts pairwise coprime partitions.
A337452 counts relatively prime strict partitions with no 1's.

Programs

  • Mathematica
    Table[Length[Select[IntegerPartitions[n,{3}],!MemberQ[#,1]&&CoprimeQ@@#&]],{n,0,30}]

A337604 Number of ordered triples of positive integers summing to n, any two of which have a common divisor > 1.

Original entry on oeis.org

0, 0, 0, 0, 0, 0, 1, 0, 3, 1, 6, 0, 13, 0, 15, 7, 21, 0, 37, 0, 39, 16, 45, 0, 73, 6, 66, 28, 81, 0, 130, 6, 105, 46, 120, 21, 181, 6, 153, 67, 189, 12, 262, 6, 213, 118, 231, 12, 337, 21, 306, 121, 303, 12, 433, 57, 369, 154, 378, 18, 583, 30, 435, 217, 465
Offset: 0

Views

Author

Gus Wiseman, Sep 20 2020

Keywords

Comments

The first relatively prime triple (15,10,6) is counted under a(31).

Examples

			The a(6) = 1 through a(15) = 7 triples (empty columns indicated by dots, A = 10):
  222  .  224  333  226  .  228  .  22A  339
          242       244     246     248  366
          422       262     264     266  393
                    424     282     284  555
                    442     336     2A2  636
                    622     363     428  663
                            426     446  933
                            444     464
                            462     482
                            624     626
                            633     644
                            642     662
                            822     824
                                    842
                                    A22
		

Crossrefs

A014311 intersected with A337666 ranks these compositions.
A337667 counts these compositions of any length.
A335402 lists the positions of zeros.
A337461 is the coprime instead of non-coprime version.
A337599 is the unordered version, with strict case A337605.
A337605*6 is the strict version.
A000741 counts relatively prime 3-part compositions.
A101268 counts pairwise coprime or singleton compositions.
A200976 and A328673 count pairwise non-relatively prime partitions.
A307719 counts pairwise coprime 3-part partitions.
A318717 counts pairwise non-coprime strict partitions.
A333227 ranks pairwise coprime compositions.

Programs

  • Mathematica
    stabQ[u_,Q_]:=Array[#1==#2||!Q[u[[#1]],u[[#2]]]&,{Length[u],Length[u]},1,And];
    Table[Length[Select[Join@@Permutations/@IntegerPartitions[n,{3}],stabQ[#,CoprimeQ]&]],{n,0,100}]

A302697 Odd numbers whose prime indices are relatively prime. Heinz numbers of integer partitions with no 1's and with relatively prime parts.

Original entry on oeis.org

15, 33, 35, 45, 51, 55, 69, 75, 77, 85, 93, 95, 99, 105, 119, 123, 135, 141, 143, 145, 153, 155, 161, 165, 175, 177, 187, 195, 201, 205, 207, 209, 215, 217, 219, 221, 225, 231, 245, 249, 253, 255, 265, 275, 279, 285, 287, 291, 295, 297, 309, 315, 323, 327, 329
Offset: 1

Views

Author

Gus Wiseman, Apr 11 2018

Keywords

Comments

A prime index of n is a number m such that prime(m) divides n.
The Heinz number of an integer partition (y_1,...,y_k) is prime(y_1)*...*prime(y_k).

Examples

			Sequence of integer partitions with no 1's and with relatively prime parts begins:
015: (3,2)
033: (5,2)
035: (4,3)
045: (3,2,2)
051: (7,2)
055: (5,3)
069: (9,2)
075: (3,3,2)
077: (5,4)
085: (7,3)
093: (11,2)
095: (8,3)
099: (5,2,2)
105: (4,3,2)
119: (7,4)
123: (13,2)
135: (3,2,2,2)
		

Crossrefs

Programs

  • Mathematica
    primeMS[n_]:=If[n===1,{},Flatten[Cases[FactorInteger[n],{p_,k_}:>Table[PrimePi[p],{k}]]]];
    Select[Range[1,200,2],GCD@@primeMS[#]===1&]

A335238 Numbers k such that the distinct parts of the k-th composition in standard order (A066099) are not pairwise coprime, where a singleton is not coprime unless it is (1).

Original entry on oeis.org

0, 2, 4, 8, 10, 16, 32, 34, 36, 40, 42, 64, 69, 70, 81, 88, 98, 104, 128, 130, 136, 138, 139, 141, 142, 160, 162, 163, 168, 170, 177, 184, 197, 198, 209, 216, 226, 232, 256, 260, 261, 262, 274, 276, 277, 278, 279, 282, 283, 285, 286, 288, 290, 292, 296, 321
Offset: 1

Views

Author

Gus Wiseman, May 28 2020

Keywords

Comments

We use the Mathematica definition for CoprimeQ, so a singleton is not considered coprime unless it is (1).
The k-th composition in standard order (graded reverse-lexicographic, A066099) is obtained by taking the set of positions of 1's in the reversed binary expansion of k, prepending 0, taking first differences, and reversing again. This gives a bijective correspondence between nonnegative integers and integer compositions.

Examples

			The sequence together with the corresponding compositions begins:
    0: ()          88: (2,1,4)      177: (2,1,4,1)
    2: (2)         98: (1,4,2)      184: (2,1,1,4)
    4: (3)        104: (1,2,4)      197: (1,4,2,1)
    8: (4)        128: (8)          198: (1,4,1,2)
   10: (2,2)      130: (6,2)        209: (1,2,4,1)
   16: (5)        136: (4,4)        216: (1,2,1,4)
   32: (6)        138: (4,2,2)      226: (1,1,4,2)
   34: (4,2)      139: (4,2,1,1)    232: (1,1,2,4)
   36: (3,3)      141: (4,1,2,1)    256: (9)
   40: (2,4)      142: (4,1,1,2)    260: (6,3)
   42: (2,2,2)    160: (2,6)        261: (6,2,1)
   64: (7)        162: (2,4,2)      262: (6,1,2)
   69: (4,2,1)    163: (2,4,1,1)    274: (4,3,2)
   70: (4,1,2)    168: (2,2,4)      276: (4,2,3)
   81: (2,4,1)    170: (2,2,2,2)    277: (4,2,2,1)
		

Crossrefs

The complement is A333228.
Not ignoring repeated parts gives A335239.
Singleton or pairwise coprime partitions are counted by A051424.
Singleton or pairwise coprime sets are ranked by A087087.
Coprime partitions are counted by A327516.
Non-coprime partitions are counted by A335240.
All of the following pertain to compositions in standard order (A066099):
- Length is A000120.
- Sum is A070939.
- Product is A124758.
- Reverse is A228351
- GCD is A326674.
- Heinz number is A333219.
- LCM is A333226.
- Coprime compositions are A333227.
- Compositions whose distinct parts are coprime are A333228.
- Number of distinct parts is A334028.

Programs

  • Mathematica
    stc[n_]:=Differences[Prepend[Join@@Position[Reverse[IntegerDigits[n,2]],1],0]]//Reverse;
    Select[Range[0,100],!CoprimeQ@@Union[stc[#]]&]

A337599 Number of unordered triples of positive integers summing to n, any two of which have a common divisor > 1.

Original entry on oeis.org

0, 0, 0, 0, 0, 0, 1, 0, 1, 1, 2, 0, 4, 0, 4, 3, 5, 0, 9, 0, 9, 5, 10, 0, 16, 2, 14, 7, 17, 0, 27, 1, 21, 11, 24, 6, 36, 1, 30, 15, 37, 2, 51, 1, 41, 25, 44, 2, 64, 5, 58, 25, 57, 2, 81, 13, 69, 31, 70, 3, 108, 5, 80, 43, 85, 17, 123, 5, 97, 46, 120, 6, 144, 6
Offset: 0

Views

Author

Gus Wiseman, Sep 20 2020

Keywords

Comments

First differs from A082024 at a(31) = 1, A082024(31) = 0.
The first relatively prime triple is (15,10,6), counted under a(31).

Examples

			The a(6) = 1 through a(16) = 5 partitions are (empty columns indicated by dots, A..G = 10..16):
  222  .  422  333  442  .  444  .  644  555  664  .  666  .  866
                    622     633     662  663  844     864     884
                            642     842  933  862     882     A55
                            822     A22       A42     963     A64
                                              C22     A44     A82
                                                      A62     C44
                                                      C33     C62
                                                      C42     E42
                                                      E22     G22
		

Crossrefs

A014612 intersected with A337694 ranks these partitions.
A200976 and A328673 count these partitions of any length.
A284825 is the case that is also relatively prime.
A307719 is the pairwise coprime instead of non-coprime version.
A335402 gives the positions of zeros.
A337604 is the ordered version.
A337605 is the strict case.
A051424 counts pairwise coprime or singleton partitions.
A101268 counts pairwise coprime or singleton compositions.
A305713 counts strict pairwise coprime partitions.
A327516 counts pairwise coprime partitions.
A333227 ranks pairwise coprime compositions.
A333228 ranks compositions whose distinct parts are pairwise coprime.

Programs

  • Mathematica
    stabQ[u_,Q_]:=Array[#1==#2||!Q[u[[#1]],u[[#2]]]&,{Length[u],Length[u]},1,And];
    Table[Length[Select[IntegerPartitions[n,{3}],stabQ[#,CoprimeQ]&]],{n,0,100}]

A337603 Number of ordered triples of positive integers summing to n whose set of distinct parts is pairwise coprime, where a singleton is not considered coprime unless it is (1).

Original entry on oeis.org

0, 0, 0, 1, 3, 6, 9, 9, 18, 15, 24, 21, 42, 24, 51, 30, 54, 42, 93, 45, 102, 54, 99, 69, 162, 66, 150, 87, 168, 96, 264, 93, 228, 120, 246, 126, 336, 132, 315, 168, 342, 162, 486, 165, 420, 216, 411, 213, 618, 207, 558, 258, 540, 258, 783, 264, 654, 324, 660
Offset: 0

Views

Author

Gus Wiseman, Sep 20 2020

Keywords

Examples

			The a(3) = 1 through a(8) = 18 triples:
  (1,1,1)  (1,1,2)  (1,1,3)  (1,1,4)  (1,1,5)  (1,1,6)
           (1,2,1)  (1,2,2)  (1,2,3)  (1,3,3)  (1,2,5)
           (2,1,1)  (1,3,1)  (1,3,2)  (1,5,1)  (1,3,4)
                    (2,1,2)  (1,4,1)  (2,2,3)  (1,4,3)
                    (2,2,1)  (2,1,3)  (2,3,2)  (1,5,2)
                    (3,1,1)  (2,3,1)  (3,1,3)  (1,6,1)
                             (3,1,2)  (3,2,2)  (2,1,5)
                             (3,2,1)  (3,3,1)  (2,3,3)
                             (4,1,1)  (5,1,1)  (2,5,1)
                                               (3,1,4)
                                               (3,2,3)
                                               (3,3,2)
                                               (3,4,1)
                                               (4,1,3)
                                               (4,3,1)
                                               (5,1,2)
                                               (5,2,1)
                                               (6,1,1)
		

Crossrefs

A014311 intersected with A333228 ranks these compositions.
A220377*6 is the strict case.
A337461 is the strict case except for any number of 1's.
A337601 is the unordered version.
A337602 considers all singletons to be coprime.
A337665 counts these compositions of any length, ranked by A333228 with complement A335238.
A000217(n - 2) counts 3-part compositions.
A001399(n - 3) = A069905(n) = A211540(n + 2) counts 3-part partitions.
A007318 and A097805 count compositions by length.
A051424 counts pairwise coprime or singleton partitions.
A101268 counts pairwise coprime or singleton compositions.
A304711 ranks partitions whose distinct parts are pairwise coprime.
A305713 counts strict pairwise coprime partitions.
A327516 counts pairwise coprime partitions, with strict case A305713.
A333227 ranks pairwise coprime compositions.

Programs

  • Mathematica
    Table[Length[Select[Join@@Permutations/@IntegerPartitions[n,{3}],CoprimeQ@@Union[#]&]],{n,0,100}]
Previous Showing 11-20 of 53 results. Next