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 23 results. Next

A343652 Number of maximal pairwise coprime sets of divisors of n.

Original entry on oeis.org

1, 1, 1, 2, 1, 2, 1, 3, 2, 2, 1, 4, 1, 2, 2, 4, 1, 4, 1, 4, 2, 2, 1, 6, 2, 2, 3, 4, 1, 5, 1, 5, 2, 2, 2, 8, 1, 2, 2, 6, 1, 5, 1, 4, 4, 2, 1, 8, 2, 4, 2, 4, 1, 6, 2, 6, 2, 2, 1, 10, 1, 2, 4, 6, 2, 5, 1, 4, 2, 5, 1, 12, 1, 2, 4, 4, 2, 5, 1, 8, 4, 2, 1, 10, 2, 2
Offset: 1

Views

Author

Gus Wiseman, Apr 25 2021

Keywords

Comments

Also the number of maximal pairwise coprime sets of divisors > 1 of n. For example, the a(n) sets for n = 12, 30, 36, 60, 120 are:
{6} {30} {6} {30} {30}
{12} {2,15} {12} {60} {60}
{2,3} {3,10} {18} {2,15} {120}
{3,4} {5,6} {36} {3,10} {2,15}
{2,3,5} {2,3} {3,20} {3,10}
{2,9} {4,15} {3,20}
{3,4} {5,6} {3,40}
{4,9} {5,12} {4,15}
{2,3,5} {5,6}
{3,4,5} {5,12}
{5,24}
{8,15}
{2,3,5}
{3,4,5}
{3,5,8}

Examples

			The a(n) sets for n = 12, 30, 36, 60, 120:
  {1,6}    {1,30}     {1,6}    {1,30}     {1,30}
  {1,12}   {1,2,15}   {1,12}   {1,60}     {1,60}
  {1,2,3}  {1,3,10}   {1,18}   {1,2,15}   {1,120}
  {1,3,4}  {1,5,6}    {1,36}   {1,3,10}   {1,2,15}
           {1,2,3,5}  {1,2,3}  {1,3,20}   {1,3,10}
                      {1,2,9}  {1,4,15}   {1,3,20}
                      {1,3,4}  {1,5,6}    {1,3,40}
                      {1,4,9}  {1,5,12}   {1,4,15}
                               {1,2,3,5}  {1,5,6}
                               {1,3,4,5}  {1,5,12}
                                          {1,5,24}
                                          {1,8,15}
                                          {1,2,3,5}
                                          {1,3,4,5}
                                          {1,3,5,8}
		

Crossrefs

The case of pairs is A063647.
The case of triples is A066620.
The non-maximal version counting empty sets and singletons is A225520.
The non-maximal version with no 1's is A343653.
The non-maximal version is A343655.
The version for subsets of {1..n} is A343659.
The case without 1's or singletons is A343660.
A018892 counts pairwise coprime unordered pairs of divisors.
A048691 counts pairwise coprime ordered pairs of divisors.
A048785 counts pairwise coprime ordered triples of divisors.
A084422, A187106, A276187, and A320426 count pairwise coprime sets.
A100565 counts pairwise coprime unordered triples of divisors.
A305713 counts pairwise coprime non-singleton strict partitions.
A324837 counts minimal subsets of {1...n} with least common multiple n.
A325683 counts maximal Golomb rulers.
A326077 counts maximal pairwise indivisible sets.

Programs

  • Mathematica
    fasmax[y_]:=Complement[y,Union@@Most@*Subsets/@y];
    Table[Length[fasmax[Select[Subsets[Divisors[n]],CoprimeQ@@#&]]],{n,100}]

Formula

a(n) = A343660(n) + A005361(n).

A325685 Number of compositions of n whose distinct consecutive subsequences have different sums, and such that these sums cover an initial interval of positive integers.

Original entry on oeis.org

1, 1, 1, 3, 1, 5, 3, 5, 3, 9, 1, 9, 5, 7, 5, 11, 1, 13, 5, 9, 5, 13, 3, 13, 7, 9, 5, 17, 1, 17, 5, 9, 9, 15, 5, 15, 5, 13, 5, 21, 1, 17, 9, 9, 9, 17, 3, 21, 7, 13, 5, 17, 5, 21, 9, 13, 5, 21, 1, 21, 9, 11, 13, 19, 5, 17, 5, 17, 5, 29, 1, 21, 9, 9, 13, 17, 5, 25, 7, 17, 7
Offset: 0

Views

Author

Gus Wiseman, May 13 2019

Keywords

Comments

A composition of n is a finite sequence of positive integers summing to n.
Compare to the definition of perfect partitions (A002033).

Examples

			The distinct consecutive subsequences of (3,4,1,1) together with their sums are:
   1: {1}
   2: {1,1}
   3: {3}
   4: {4}
   5: {4,1}
   6: {4,1,1}
   7: {3,4}
   8: {3,4,1}
   9: {3,4,1,1}
Because the sums are all different and cover {1...9}, it follows that (3,4,1,1) is counted under a(9).
The a(1) = 1 through a(9) = 9 compositions:
  1   11   12    1111   113     132      1114      1133       1143
           21           122     231      1222      3311       1332
           111          221     111111   2221      11111111   2331
                        311              4111                 3411
                        11111            1111111              11115
                                                              12222
                                                              22221
                                                              51111
                                                              111111111
		

Crossrefs

Programs

  • Mathematica
    Table[Length[Select[Join@@Permutations/@IntegerPartitions[n],Sort[Total/@Union[ReplaceList[#,{_,s__,_}:>{s}]]]==Range[n]&]],{n,0,15}]

Extensions

a(21)-a(25) from Jinyuan Wang, Jun 26 2020
a(21)-a(25) corrected, a(26)-a(80) from Fausto A. C. Cariboni, Feb 21 2022

A325684 Number of minimal complete rulers of length n.

Original entry on oeis.org

1, 1, 1, 2, 3, 4, 5, 12, 12, 24, 40, 46, 92, 133, 192, 308, 546, 710, 1108, 1754, 2726, 3878, 5928, 9260, 14238, 20502, 30812, 48378, 72232, 105744, 160308, 241592, 362348, 540362, 797750, 1183984, 1786714
Offset: 0

Views

Author

Gus Wiseman, May 13 2019

Keywords

Comments

A complete ruler of length n is a subset of {0..n} containing 0 and n and such that the differences of distinct terms (up to sign) cover an initial interval of positive integers.
Also the number of maximal (most coarse) compositions of n whose consecutive subsequence-sums cover an initial interval of positive integers.

Examples

			The a(1) = 1 through a(7) = 12 rulers:
  {0,1}  {0,1,2}  {0,1,3}  {0,1,2,4}  {0,1,2,5}  {0,1,4,6}    {0,1,2,3,7}
                  {0,2,3}  {0,1,3,4}  {0,1,3,5}  {0,2,5,6}    {0,1,2,4,7}
                           {0,2,3,4}  {0,2,4,5}  {0,1,2,3,6}  {0,1,2,5,7}
                                      {0,3,4,5}  {0,1,3,5,6}  {0,1,3,5,7}
                                                 {0,3,4,5,6}  {0,1,3,6,7}
                                                              {0,1,4,5,7}
                                                              {0,1,4,6,7}
                                                              {0,2,3,6,7}
                                                              {0,2,4,6,7}
                                                              {0,2,5,6,7}
                                                              {0,3,5,6,7}
                                                              {0,4,5,6,7}
The a(1) = 1 through a(9) = 24 compositions:
  (1)  (11)  (12)  (112)  (113)  (132)   (1114)  (1133)   (1143)
             (21)  (121)  (122)  (231)   (1123)  (1241)   (1332)
                   (211)  (221)  (1113)  (1132)  (1322)   (2331)
                          (311)  (1221)  (1222)  (1412)   (3411)
                                 (3111)  (1231)  (1421)   (11115)
                                         (1312)  (2141)   (11124)
                                         (1321)  (2231)   (11142)
                                         (2131)  (3311)   (11241)
                                         (2221)  (11114)  (11322)
                                         (2311)  (11132)  (12141)
                                         (3211)  (23111)  (12222)
                                         (4111)  (41111)  (12231)
                                                          (12312)
                                                          (13221)
                                                          (14112)
                                                          (14121)
                                                          (14211)
                                                          (21141)
                                                          (21321)
                                                          (22221)
                                                          (22311)
                                                          (24111)
                                                          (42111)
                                                          (51111)
		

Crossrefs

Programs

  • Mathematica
    fasmin[y_]:=Complement[y,Union@@Table[Union[s,#]&/@Rest[Subsets[Complement[Union@@y,s]]],{s,y}]];
    Table[Length[fasmin[Accumulate/@Select[Join@@Permutations/@IntegerPartitions[n],SubsetQ[ReplaceList[#,{_,s__,_}:>Plus[s]],Range[n]]&]]],{n,0,15}]

Extensions

a(16)-a(36) from Fausto A. C. Cariboni, Feb 27 2022

A325678 Maximum length of a composition of n such that every restriction to a subinterval has a different sum.

Original entry on oeis.org

0, 1, 1, 2, 2, 2, 3, 3, 3, 3, 3, 4, 4, 4, 4, 4, 4, 5, 5, 5, 5, 5, 5, 5, 5, 6, 6, 6, 6, 6, 6, 6, 6, 6, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 8, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10
Offset: 0

Views

Author

Gus Wiseman, May 13 2019

Keywords

Comments

A composition of n is a finite sequence of positive integers summing to n.
Also the maximum number of nonzero marks on a Golomb ruler of length n.

Crossrefs

Programs

  • Mathematica
    Table[Max[Length/@Select[Join@@Permutations/@IntegerPartitions[n],UnsameQ@@ReplaceList[#,{_,s__,_}:>Plus[s]]&]],{n,0,15}]

Formula

a(n) + 1 = A143824(n + 1).

A343655 Number of pairwise coprime sets of divisors of n, where a singleton is not considered pairwise coprime unless it is {1}.

Original entry on oeis.org

1, 2, 2, 3, 2, 6, 2, 4, 3, 6, 2, 10, 2, 6, 6, 5, 2, 10, 2, 10, 6, 6, 2, 14, 3, 6, 4, 10, 2, 22, 2, 6, 6, 6, 6, 17, 2, 6, 6, 14, 2, 22, 2, 10, 10, 6, 2, 18, 3, 10, 6, 10, 2, 14, 6, 14, 6, 6, 2, 38, 2, 6, 10, 7, 6, 22, 2, 10, 6, 22, 2, 24, 2, 6, 10, 10, 6, 22, 2
Offset: 1

Views

Author

Gus Wiseman, Apr 26 2021

Keywords

Comments

First differs from A015995 at a(210) = 88, A015995(210) = 86.

Examples

			For example, the a(n) subsets for n = 1, 2, 4, 6, 8, 12, 16, 24 are:
  {1}  {1}    {1}    {1}      {1}    {1}      {1}     {1}
       {1,2}  {1,2}  {1,2}    {1,2}  {1,2}    {1,2}   {1,2}
              {1,4}  {1,3}    {1,4}  {1,3}    {1,4}   {1,3}
                     {1,6}    {1,8}  {1,4}    {1,8}   {1,4}
                     {2,3}           {1,6}    {1,16}  {1,6}
                     {1,2,3}         {2,3}            {1,8}
                                     {3,4}            {2,3}
                                     {1,12}           {3,4}
                                     {1,2,3}          {3,8}
                                     {1,3,4}          {1,12}
                                                      {1,24}
                                                      {1,2,3}
                                                      {1,3,4}
                                                      {1,3,8}
		

Crossrefs

The case of pairs is A063647.
The case of triples is A066620.
The version with empty sets and singletons is A225520.
A version for prime indices is A304711.
The version for strict integer partitions is A305713.
The version for subsets of {1..n} is A320426 = A276187 + 1.
The version for binary indices is A326675.
The version for integer partitions is A327516.
The version for standard compositions is A333227.
The maximal case is A343652.
The case without 1's is A343653.
The case without 1's with singletons is A343654.
The maximal case without 1's is A343660.
A018892 counts coprime unordered pairs of divisors.
A051026 counts pairwise indivisible subsets of {1..n}.
A100565 counts pairwise coprime unordered triples of divisors.
A325683 counts maximal Golomb rulers.
A326077 counts maximal pairwise indivisible sets.

Programs

  • Mathematica
    Table[Length[Select[Subsets[Divisors[n]],CoprimeQ@@#&]],{n,100}]

A344089 Flattened tetrangle of reversed strict integer partitions, sorted first by length and then colexicographically.

Original entry on oeis.org

1, 2, 3, 1, 2, 4, 1, 3, 5, 2, 3, 1, 4, 6, 2, 4, 1, 5, 1, 2, 3, 7, 3, 4, 2, 5, 1, 6, 1, 2, 4, 8, 3, 5, 2, 6, 1, 7, 1, 3, 4, 1, 2, 5, 9, 4, 5, 3, 6, 2, 7, 1, 8, 2, 3, 4, 1, 3, 5, 1, 2, 6, 10, 4, 6, 3, 7, 2, 8, 1, 9, 2, 3, 5, 1, 4, 5, 1, 3, 6, 1, 2, 7, 1, 2, 3, 4
Offset: 0

Views

Author

Gus Wiseman, May 12 2021

Keywords

Comments

First differs from the revlex (instead of colex) version for partitions of 12.
The zeroth row contains only the empty partition.
A tetrangle is a sequence of finite triangles.

Examples

			Tetrangle begins:
  0: ()
  1: (1)
  2: (2)
  3: (3)(12)
  4: (4)(13)
  5: (5)(23)(14)
  6: (6)(24)(15)(123)
  7: (7)(34)(25)(16)(124)
  8: (8)(35)(26)(17)(134)(125)
  9: (9)(45)(36)(27)(18)(234)(135)(126)
		

Crossrefs

Positions of first appearances are A015724 plus one.
Taking lex instead of colex gives A026793 (non-reversed: A118457).
Triangle sums are A066189.
Reversing all partitions gives A344090.
The non-strict version is A344091.
A319247 sorts strict partitions by Heinz number.
A329631 sorts reversed strict partitions by Heinz number.

Programs

  • Mathematica
    Table[Reverse/@Sort[Select[IntegerPartitions[n],UnsameQ@@#&]],{n,0,30}]

A343659 Number of maximal pairwise coprime subsets of {1..n}.

Original entry on oeis.org

1, 1, 1, 2, 2, 3, 3, 4, 7, 9, 9, 10, 10, 12, 16, 19, 19, 20, 20, 22, 28, 32, 32, 33, 54, 61, 77, 84, 84, 85, 85, 94, 112, 123, 158, 161, 161, 176, 206, 212, 212, 214, 214, 229, 241, 260, 260, 263, 417, 428, 490, 521, 521, 526, 655, 674, 764, 818, 818, 820, 820, 874, 918, 975, 1182, 1189, 1189
Offset: 1

Views

Author

Gus Wiseman, Apr 26 2021

Keywords

Comments

For this sequence, it does not matter whether singletons are considered pairwise coprime.
For n > 2, also the number of maximal pairwise coprime subsets of {2..n}.
For each prime p <= n, p divides exactly one element of each maximal subset. - Bert Dobbelaere, May 04 2021

Examples

			The a(1) = 1 through a(9) = 7 subsets:
  {1}  {12}  {123}  {123}  {1235}  {156}   {1567}   {1567}   {1567}
                    {134}  {1345}  {1235}  {12357}  {12357}  {12357}
                                   {1345}  {13457}  {13457}  {12579}
                                                    {13578}  {13457}
                                                             {13578}
                                                             {14579}
                                                             {15789}
		

Crossrefs

The case of pairs is A015614.
The case of triples is A015617.
The non-maximal version counting empty sets and singletons is A084422.
The non-maximal version counting singletons is A187106.
The non-maximal version is A320426(n) = A276187(n) + 1.
The version for indivisibility instead of coprimality is A326077.
The version for sets of divisors is A343652.
The version for sets of divisors > 1 is A343660.
A018892 counts coprime unordered pairs of divisors.
A051026 counts pairwise indivisible subsets of {1..n}.
A100565 counts pairwise coprime unordered triples of divisors.

Programs

  • Mathematica
    fasmax[y_]:=Complement[y,Union@@Most@*Subsets/@y];
    Table[Length[fasmax[Select[Subsets[Range[n]],CoprimeQ@@#&]]],{n,15}]

Extensions

More terms from Bert Dobbelaere, May 04 2021

A036501 Number of inequivalent Golomb rulers with n marks and shortest length.

Original entry on oeis.org

1, 1, 1, 2, 4, 5, 1, 1, 1, 2, 1, 1, 1, 1, 1, 1, 1, 1
Offset: 2

Views

Author

Keywords

Comments

From Gus Wiseman, May 31 2019: (Start)
A Golomb ruler of length n is a subset of {0..n} containing 0 and n and such that every pair of distinct terms has a different difference. For example, the a(2) = 1 through a(8) = 1 Golomb rulers are:
2: {0,1}
3: {0,1,3}
4: {0,1,4,6}
5: {0,1,4,9,11}
5: {0,2,7,8,11}
6: {0,1,4,10,12,17}
6: {0,1,4,10,15,17}
6: {0,1,8,11,13,17}
6: {0,1,8,12,14,17}
7: {0,1,4,10,18,23,25}
7: {0,1,7,11,20,23,25}
7: {0,2,3,10,16,21,25}
7: {0,2,7,13,21,22,25}
7: {0,1,11,16,19,23,25}
8: {0,1,4,9,15,22,32,34}
Also half the number of length-(n - 1) compositions of A003022(n) such that every consecutive subsequence has a different sum. For example, the a(2) = 1 through a(8) = 1 compositions are (A = 10):
2: (1)
3: (1,2)
4: (1,3,2)
5: (1,3,5,2)
5: (2,5,1,3)
6: (1,3,6,2,5)
6: (1,3,6,5,2)
6: (1,7,3,2,4)
6: (1,7,4,2,3)
7: (1,3,6,8,5,2)
7: (1,6,4,9,3,2)
7: (2,1,7,6,5,4)
7: (2,5,6,8,1,3)
7: (1,A,5,3,4,2)
8: (1,3,5,6,7,A,2)
(End)

Crossrefs

A325681 Number of necklace compositions of n such that every restriction to a circular subinterval has a different sum.

Original entry on oeis.org

1, 1, 2, 2, 3, 3, 6, 6, 11, 9, 16, 16, 27, 23, 46, 42, 73, 63, 112, 102, 173, 141, 254, 228, 373, 313, 614, 500, 855, 709, 1252, 1074, 1827, 1457, 2470, 2260, 3559, 2905, 5044, 4294, 6997, 5623, 9752, 8422, 13741, 10913, 18562, 15912, 25213, 20569, 35146, 29286, 46307, 38241, 61396
Offset: 1

Views

Author

Gus Wiseman, May 13 2019

Keywords

Comments

A necklace composition of n is a finite sequence of positive integers summing to n that is lexicographically minimal among all of its cyclic rotations.
A circular subinterval is a sequence of consecutive indices where the first and last indices are also considered consecutive.

Examples

			The a(1) = 1 through a(10) = 9 necklace compositions (A = 10):
  (1)  (2)  (3)   (4)   (5)   (6)   (7)    (8)    (9)    (A)
            (12)  (13)  (14)  (15)  (16)   (17)   (18)   (19)
                        (23)  (24)  (25)   (26)   (27)   (28)
                                    (34)   (35)   (36)   (37)
                                    (124)  (125)  (45)   (46)
                                    (142)  (152)  (126)  (127)
                                                  (135)  (136)
                                                  (153)  (163)
                                                  (162)  (172)
                                                  (234)
                                                  (243)
		

Crossrefs

Programs

  • Mathematica
    neckQ[q_]:=Array[OrderedQ[{q,RotateRight[q,#]}]&,Length[q]-1,1,And];
    suball[q_]:=Join[Take[q,#]&/@Select[Tuples[Range[Length[q]],2],OrderedQ],Drop[q,#]&/@Select[Tuples[Range[2,Length[q]-1],2],OrderedQ]];
    Table[Length[Select[Join@@Permutations/@IntegerPartitions[n],neckQ[#]&&UnsameQ@@Total/@suball[#]&]],{n,15}]
  • PARI
    a(n)={
       my(recurse(k,r,b,w)=
          if(k >= n, 1/r,
             b+=1<Andrew Howroyd, Mar 25 2025

Extensions

a(21) onwards from Andrew Howroyd, Mar 24 2025

A325765 Number of integer partitions of n with a unique consecutive subsequence summing to every positive integer from 1 to n.

Original entry on oeis.org

1, 1, 1, 2, 1, 3, 1, 3, 2, 3, 1, 5, 1, 3, 3, 4, 1, 5, 1, 5, 3, 3, 1, 7, 2, 3, 3, 5, 1, 7, 1, 5, 3, 3, 3, 8, 1, 3, 3, 7, 1, 7, 1, 5, 5, 3, 1, 9, 2, 5, 3
Offset: 0

Views

Author

Gus Wiseman, May 20 2019

Keywords

Comments

After a(0) = 1, same as A032741(n + 1) (number of proper divisors of n + 1).
The Heinz numbers of these partitions are given by A325764.

Examples

			The a(1) = 1 through a(13) = 3 partitions:
  (1)  (11)  (21)   (1111)  (221)    (111111)  (2221)     (3311)
             (111)          (311)              (4111)     (11111111)
                            (11111)            (1111111)
.
  (22221)      (1111111111)  (33311)        (111111111111)  (2222221)
  (51111)                    (44111)                        (7111111)
  (111111111)                (222221)                       (1111111111111)
                             (611111)
                             (11111111111)
		

Crossrefs

Programs

  • Mathematica
    normQ[m_]:=Or[m=={},Union[m]==Range[Max[m]]];
    Table[Length[Select[IntegerPartitions[n],normQ[Total/@Union[ReplaceList[#,{_,s__,_}:>{s}]]]&&UnsameQ@@Total/@Union[ReplaceList[#,{_,s__,_}:>{s}]]&]],{n,0,20}]
Previous Showing 11-20 of 23 results. Next