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.

Showing 1-10 of 10 results.

A337461 Number of pairwise coprime ordered triples of positive integers summing to n.

Original entry on oeis.org

0, 0, 0, 1, 3, 3, 9, 3, 15, 9, 21, 9, 39, 9, 45, 21, 45, 21, 87, 21, 93, 39, 87, 39, 153, 39, 135, 63, 153, 57, 255, 51, 207, 93, 225, 93, 321, 81, 291, 135, 321, 105, 471, 105, 393, 183, 381, 147, 597, 147, 531, 213, 507, 183, 759, 207, 621, 273, 621, 231
Offset: 0

Views

Author

Gus Wiseman, Sep 02 2020

Keywords

Examples

			The a(3) = 1 through a(9) = 9 triples:
  (1,1,1)  (1,1,2)  (1,1,3)  (1,1,4)  (1,1,5)  (1,1,6)  (1,1,7)
           (1,2,1)  (1,3,1)  (1,2,3)  (1,5,1)  (1,2,5)  (1,3,5)
           (2,1,1)  (3,1,1)  (1,3,2)  (5,1,1)  (1,3,4)  (1,5,3)
                             (1,4,1)           (1,4,3)  (1,7,1)
                             (2,1,3)           (1,5,2)  (3,1,5)
                             (2,3,1)           (1,6,1)  (3,5,1)
                             (3,1,2)           (2,1,5)  (5,1,3)
                             (3,2,1)           (2,5,1)  (5,3,1)
                             (4,1,1)           (3,1,4)  (7,1,1)
                                               (3,4,1)
                                               (4,1,3)
                                               (4,3,1)
                                               (5,1,2)
                                               (5,2,1)
                                               (6,1,1)
		

Crossrefs

A000212 counts the unimodal instead of coprime version.
A220377*6 is the strict case.
A307719 is the unordered version.
A337462 counts these compositions of any length.
A337563 counts the case of partitions with no 1's.
A337603 only requires the *distinct* parts to be pairwise coprime.
A337604 is the intersecting instead of coprime version.
A014612 ranks 3-part partitions.
A302696 ranks pairwise coprime partitions.
A327516 counts pairwise coprime partitions.
A333228 ranks compositions whose distinct parts are pairwise coprime.

Programs

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

A000741 Number of compositions of n into 3 ordered relatively prime parts.

Original entry on oeis.org

0, 0, 1, 3, 6, 9, 15, 18, 27, 30, 45, 42, 66, 63, 84, 84, 120, 99, 153, 132, 174, 165, 231, 180, 270, 234, 297, 270, 378, 276, 435, 360, 450, 408, 540, 414, 630, 513, 636, 552, 780, 558, 861, 690, 828, 759, 1035, 744, 1113, 870, 1104, 972, 1326, 945, 1380, 1116, 1386, 1218
Offset: 1

Views

Author

Keywords

Examples

			From _Gus Wiseman_, Oct 14 2020: (Start)
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,2,4)  (1,2,5)
           (2,1,1)  (1,3,1)  (1,3,2)  (1,3,3)  (1,3,4)
                    (2,1,2)  (1,4,1)  (1,4,2)  (1,4,3)
                    (2,2,1)  (2,1,3)  (1,5,1)  (1,5,2)
                    (3,1,1)  (2,3,1)  (2,1,4)  (1,6,1)
                             (3,1,2)  (2,2,3)  (2,1,5)
                             (3,2,1)  (2,3,2)  (2,3,3)
                             (4,1,1)  (2,4,1)  (2,5,1)
                                      (3,1,3)  (3,1,4)
                                      (3,2,2)  (3,2,3)
                                      (3,3,1)  (3,3,2)
                                      (4,1,2)  (3,4,1)
                                      (4,2,1)  (4,1,3)
                                      (5,1,1)  (4,3,1)
                                               (5,1,2)
                                               (5,2,1)
                                               (6,1,1)
(End)
		

References

  • N. J. A. Sloane, A Handbook of Integer Sequences, Academic Press, 1973 (includes this sequence).
  • N. J. A. Sloane and Simon Plouffe, The Encyclopedia of Integer Sequences, Academic Press, 1995 (includes this sequence).

Crossrefs

A000010 is the length-2 version.
A000217(n-2) does not require relative primality.
A000740 counts these compositions of any length.
A000742 is the length-4 version.
A000837 counts relatively prime partitions.
A023023 is the unordered version.
A101271 is the strict case.
A101391 has this as column k = 3.
A284825*6 is the pairwise non-coprime case.
A291166 intersected with A014311 ranks these compositions.
A337461 is the pairwise coprime instead of relatively prime version.
A337603 counts length-3 compositions whose distinct parts are pairwise coprime.
A337604 is the pairwise non-coprime instead of relatively prime version.

Programs

  • Maple
    with(numtheory):
    mobtr:= proc(p)
              proc(n) option remember;
                add(mobius(n/d)*p(d), d=divisors(n))
              end
            end:
    A000217:= n-> n*(n+1)/2:
    a:= mobtr(n-> A000217(n-2)):
    seq(a(n), n=1..58);  # Alois P. Heinz, Feb 08 2011
  • Mathematica
    mobtr[p_] := Module[{f}, f[n_] := f[n] = Sum[MoebiusMu[n/d]*p[d], {d, Divisors[n]}]; f]; A000217[n_] := n*(n+1)/2; a = mobtr[A000217[#-2]&]; Table[a[n], {n, 1, 58}] (* Jean-François Alcover, Mar 12 2014, after Alois P. Heinz *)
    Table[Length[Select[Join@@Permutations/@IntegerPartitions[n,{3}],GCD@@#==1&]],{n,0,30}] (* Gus Wiseman, Oct 14 2020 *)

Formula

Moebius transform of A000217(n-2).
G.f.: 1 + Sum_{n>=1} a(n)*x^n/(1 - x^n) = (1 - 3*x + 3*x^2)/(1 - x)^3. - Ilya Gutkovskiy, Apr 26 2017

Extensions

Edited by Alois P. Heinz, Feb 08 2011

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}]

A337601 Number of unordered 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, 1, 2, 2, 3, 4, 4, 5, 6, 8, 7, 10, 7, 11, 11, 17, 12, 19, 12, 19, 17, 29, 16, 28, 19, 31, 23, 46, 23, 42, 25, 45, 27, 59, 31, 57, 34, 61, 37, 84, 38, 75, 42, 74, 47, 107, 45, 98, 51, 96, 56, 135, 54, 115, 63, 117, 67, 174, 65, 139, 75, 144, 75, 194
Offset: 0

Views

Author

Gus Wiseman, Sep 20 2020

Keywords

Comments

First differs from A337600 at a(9) = 4, A337600(9) = 5.

Examples

			The a(3) = 1 through a(14) = 10 partitions (A = 10, B = 11, C = 12):
  111  211  221  321  322  332  441  433  443  543  544  554
            311  411  331  431  522  532  533  552  553  743
                      511  521  531  541  551  651  661  752
                           611  711  721  722  732  733  761
                                     811  731  741  751  833
                                          911  831  922  851
                                               921  B11  941
                                               A11       A31
                                                         B21
                                                         C11
		

Crossrefs

A014612 intersected with A304711 ranks these partitions.
A220377 is the strict case.
A304709 counts these partitions of any length.
A307719 is the strict case except for any number of 1's.
A337600 considers singletons to be coprime.
A337603 is the ordered version.
A000217 counts 3-part compositions.
A000837 counts relatively prime partitions.
A001399/A069905/A211540 count 3-part partitions.
A023023 counts relatively prime 3-part partitions.
A051424 counts pairwise coprime or singleton partitions.
A101268 counts pairwise coprime or singleton compositions.
A305713 counts pairwise coprime strict partitions.
A327516 counts pairwise coprime partitions.
A333227 ranks pairwise coprime compositions.
A333228 ranks compositions whose distinct parts are pairwise coprime.
A337461 counts pairwise coprime 3-part compositions.

Programs

  • Mathematica
    Table[Length[Select[IntegerPartitions[n,{3}],CoprimeQ@@Union[#]&]],{n,0,100}]

Formula

For n > 0, a(n) = A337600(n) - A079978(n).

A337665 Number of compositions of n whose distinct parts are pairwise coprime, where a singleton is not considered coprime unless it is (1).

Original entry on oeis.org

0, 1, 1, 3, 6, 15, 27, 57, 108, 208, 393, 749, 1415, 2687, 5076, 9583, 18088, 34156, 64511, 121898, 230368, 435460, 823376, 1557420, 2946931, 5578109, 10561987, 20005126, 37902509, 71832372, 136173266, 258211602, 489738622, 929074445, 1762899107, 3345713031
Offset: 0

Views

Author

Gus Wiseman, Sep 22 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) = 15 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,2,2)
                                  (1,3,1)
                                  (2,1,2)
                                  (2,2,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 is a relatively prime instead of pairwise coprime version.
A304709 is the unordered version.
A333228 ranks these compositions.
A337561 is the strict case.
A337603 is the length-3 case.
A337664 considers all singletons to be coprime.
A051424 counts pairwise coprime or singleton partitions.
A101268 counts pairwise coprime or singleton compositions.
A305713 counts pairwise coprime strict partitions.
A327516 counts pairwise coprime partitions.
A333227 ranks pairwise coprime compositions.
A337461 counts pairwise coprime length-3 compositions.

Programs

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

Extensions

a(26)-a(35) from Alois P. Heinz, Sep 29 2020

A100565 a(n) = Card{(x,y,z) : x <= y <= z, x|n, y|n, z|n, gcd(x,y)=1, gcd(x,z)=1, gcd(y,z)=1}.

Original entry on oeis.org

1, 2, 2, 3, 2, 5, 2, 4, 3, 5, 2, 8, 2, 5, 5, 5, 2, 8, 2, 8, 5, 5, 2, 11, 3, 5, 4, 8, 2, 15, 2, 6, 5, 5, 5, 13, 2, 5, 5, 11, 2, 15, 2, 8, 8, 5, 2, 14, 3, 8, 5, 8, 2, 11, 5, 11, 5, 5, 2, 25, 2, 5, 8, 7, 5, 15, 2, 8, 5, 15, 2, 18, 2, 5, 8, 8, 5, 15, 2, 14, 5, 5, 2, 25, 5, 5, 5, 11, 2, 25, 5, 8, 5, 5, 5, 17
Offset: 1

Views

Author

Vladeta Jovovic, Nov 28 2004

Keywords

Comments

First differs from A018892 at a(30) = 15, A018892(30) = 14.
First differs from A343654 at a(210) = 51, A343654(210) = 52.
Also a(n) = Card{(x,y,z) : x <= y <= z and lcm(x,y)=n, lcm(x,z)=n, lcm(y,z)=n}.
In words, a(n) is the number of pairwise coprime unordered triples of divisors of n. - Gus Wiseman, May 01 2021

Examples

			From _Gus Wiseman_, May 01 2021: (Start)
The a(n) triples for n = 1, 2, 4, 6, 8, 12, 24:
  (1,1,1)  (1,1,1)  (1,1,1)  (1,1,1)  (1,1,1)  (1,1,1)   (1,1,1)
           (1,1,2)  (1,1,2)  (1,1,2)  (1,1,2)  (1,1,2)   (1,1,2)
                    (1,1,4)  (1,1,3)  (1,1,4)  (1,1,3)   (1,1,3)
                             (1,1,6)  (1,1,8)  (1,1,4)   (1,1,4)
                             (1,2,3)           (1,1,6)   (1,1,6)
                                               (1,2,3)   (1,1,8)
                                               (1,3,4)   (1,2,3)
                                               (1,1,12)  (1,3,4)
                                                         (1,3,8)
                                                         (1,1,12)
                                                         (1,1,24)
(End)
		

Crossrefs

Positions of 2's through 5's are A000040, A001248, A030078, A068993.
The version for subsets of {1..n} instead of divisors is A015617.
The version for pairs of divisors is A018892.
The ordered version is A048785.
The strict case is A066620.
The version for strict partitions is A220377.
A version for sets of divisors of any size is A225520.
The version for partitions is A307719 (no 1's: A337563).
The case of distinct parts coprime is A337600 (ordered: A337602).
A001399(n-3) = A069905(n) = A211540(n+2) counts 3-part partitions.
A007304 ranks 3-part strict partitions.
A014311 ranks 3-part compositions.
A014612 ranks 3-part partitions.
A051026 counts pairwise indivisible subsets of {1..n}.
A302696 lists Heinz numbers of pairwise coprime partitions.
A337461 counts 3-part pairwise coprime compositions.

Programs

  • Mathematica
    pwcop[y_]:=And@@(GCD@@#==1&/@Subsets[y,{2}]);
    Table[Length[Select[Tuples[Divisors[n],3],LessEqual@@#&&pwcop[#]&]],{n,30}] (* Gus Wiseman, May 01 2021 *)
  • PARI
    A100565(n) = (numdiv(n^3)+3*numdiv(n)+2)/6; \\ Antti Karttunen, May 19 2017

Formula

a(n) = (tau(n^3) + 3*tau(n) + 2)/6.

A337600 Number of unordered triples of positive integers summing to n whose set of distinct parts is pairwise coprime, where a singleton is always considered coprime.

Original entry on oeis.org

0, 0, 0, 1, 1, 2, 3, 3, 4, 5, 5, 6, 9, 7, 10, 8, 11, 11, 18, 12, 19, 13, 19, 17, 30, 16, 28, 20, 31, 23, 47, 23, 42, 26, 45, 27, 60, 31, 57, 35, 61, 37, 85, 38, 75, 43, 74, 47, 108, 45, 98, 52, 96, 56, 136, 54, 115, 64, 117, 67, 175, 65, 139, 76, 144, 75, 195
Offset: 0

Views

Author

Gus Wiseman, Sep 20 2020

Keywords

Comments

First differs from A337601 at a(9) = 5, A337601(9) = 4.

Examples

			The a(3) = 1 through a(14) = 10 partitions (A = 10, B = 11, C = 12):
  111  211  221  222  322  332  333  433  443  444  544  554
            311  321  331  431  441  532  533  543  553  743
                 411  511  521  522  541  551  552  661  752
                           611  531  721  722  651  733  761
                                711  811  731  732  751  833
                                          911  741  922  851
                                               831  B11  941
                                               921       A31
                                               A11       B21
                                                         C11
		

Crossrefs

A220377 is the strict case.
A304712 counts these partitions of any length.
A307719 is the strict case except for any number of 1's.
A337601 does not consider a singleton to be coprime unless it is (1).
A337602 is the ordered version.
A337664 counts compositions of this type and any length.
A000217 counts 3-part compositions.
A000837 counts relatively prime partitions.
A001399/A069905/A211540 count 3-part partitions.
A023023 counts relatively prime 3-part partitions.
A051424 counts pairwise coprime or singleton partitions.
A101268 counts pairwise coprime or singleton compositions.
A304709 counts partitions whose distinct parts are pairwise coprime.
A305713 counts pairwise coprime strict partitions.
A327516 counts pairwise coprime partitions.
A333227 ranks pairwise coprime compositions.
A333228 ranks compositions whose distinct parts are pairwise coprime.
A337461 counts pairwise coprime length-3 compositions.
A337563 counts pairwise coprime length-3 partitions with no 1's.

Programs

  • Mathematica
    Table[Length[Select[IntegerPartitions[n,{3}],SameQ@@#||CoprimeQ@@Union[#]&]],{n,0,100}]

Formula

For n > 0, a(n) = A337601(n) + A079978(n).

A337664 Number of compositions of n whose set of distinct parts is pairwise coprime, where a singleton is always considered coprime.

Original entry on oeis.org

1, 1, 2, 4, 8, 16, 30, 58, 111, 210, 396, 750, 1420, 2688, 5079, 9586, 18092, 34157, 64516, 121899, 230373, 435463, 823379, 1557421, 2946938, 5578111, 10561990, 20005129, 37902514, 71832373, 136173273, 258211603, 489738627, 929074448, 1762899110, 3345713034
Offset: 0

Views

Author

Gus Wiseman, Sep 21 2020

Keywords

Examples

			The a(0) = 1 through a(5) = 16 compositions:
  ()  (1)  (2)   (3)    (4)     (5)
           (11)  (12)   (13)    (14)
                 (21)   (22)    (23)
                 (111)  (31)    (32)
                        (112)   (41)
                        (121)   (113)
                        (211)   (122)
                        (1111)  (131)
                                (212)
                                (221)
                                (311)
                                (1112)
                                (1121)
                                (1211)
                                (2111)
                                (11111)
		

Crossrefs

A304712 is the unordered version.
A337562 is the strict case.
A337602 is the length-3 case.
A337665 does not consider a singleton to be coprime unless it is (1).
A337695 ranks the complement of these compositions.
A000740 counts relatively prime compositions.
A051424 counts pairwise coprime or singleton partitions.
A101268 counts pairwise coprime or singleton compositions.
A305713 counts pairwise coprime strict partitions.
A327516 counts pairwise coprime partitions.
A333227 ranks pairwise coprime compositions.
A333228 ranks compositions whose distinct parts are pairwise coprime.
A337461 counts pairwise coprime length-3 compositions.
A337561 counts pairwise coprime strict compositions.

Programs

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

A337695 Numbers k such that the distinct parts of the k-th composition in standard order (A066099) are not pairwise coprime, where a singleton is always considered coprime.

Original entry on oeis.org

34, 40, 69, 70, 81, 88, 98, 104, 130, 138, 139, 141, 142, 160, 162, 163, 168, 177, 184, 197, 198, 209, 216, 226, 232, 260, 261, 262, 274, 276, 277, 278, 279, 282, 283, 285, 286, 288, 290, 296, 321, 324, 325, 326, 327, 328, 337, 344, 352, 354, 355, 360, 369
Offset: 1

Views

Author

Gus Wiseman, Sep 22 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:
     34: (4,2)        163: (2,4,1,1)    277: (4,2,2,1)
     40: (2,4)        168: (2,2,4)      278: (4,2,1,2)
     69: (4,2,1)      177: (2,1,4,1)    279: (4,2,1,1,1)
     70: (4,1,2)      184: (2,1,1,4)    282: (4,1,2,2)
     81: (2,4,1)      197: (1,4,2,1)    283: (4,1,2,1,1)
     88: (2,1,4)      198: (1,4,1,2)    285: (4,1,1,2,1)
     98: (1,4,2)      209: (1,2,4,1)    286: (4,1,1,1,2)
    104: (1,2,4)      216: (1,2,1,4)    288: (3,6)
    130: (6,2)        226: (1,1,4,2)    290: (3,4,2)
    138: (4,2,2)      232: (1,1,2,4)    296: (3,2,4)
    139: (4,2,1,1)    260: (6,3)        321: (2,6,1)
    141: (4,1,2,1)    261: (6,2,1)      324: (2,4,3)
    142: (4,1,1,2)    262: (6,1,2)      325: (2,4,2,1)
    160: (2,6)        274: (4,3,2)      326: (2,4,1,2)
    162: (2,4,2)      276: (4,2,3)      327: (2,4,1,1,1)
		

Crossrefs

A304712 counts the complement, with ordered version A337664.
A333228 ranks compositions whose distinct parts are pairwise coprime.
A335238 does not consider a singleton coprime unless it is (1).
A337600 counts 3-part partitions in the complement.
A000740 counts relatively prime compositions.
A051424 counts pairwise coprime or singleton partitions.
A101268 counts pairwise coprime or singleton compositions.
A327516 counts pairwise coprime partitions.
A333227 ranks pairwise coprime compositions.
A337461 counts pairwise coprime 3-part compositions.
A337561 counts pairwise coprime strict compositions.
A337665 counts compositions whose distinct parts are pairwise coprime.
A337666 ranks pairwise non-coprime compositions.

Programs

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

A338331 Numbers whose set of distinct prime indices (A304038) is pairwise coprime, where a singleton is always considered coprime.

Original entry on oeis.org

1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 40, 41, 43, 44, 45, 46, 47, 48, 49, 50, 51, 52, 53, 54, 55, 56, 58, 59, 60, 61, 62, 64, 66, 67, 68, 69, 70, 71, 72, 73
Offset: 1

Views

Author

Gus Wiseman, Oct 31 2020

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.
Also Heinz numbers of partitions whose set of distinct parts is a singleton or pairwise coprime. The Heinz number of a partition (y_1,...,y_k) is prime(y_1)*...*prime(y_k), giving a bijective correspondence between positive integers and integer partitions.

Examples

			The sequence of terms together with their prime indices begins:
      1: {}          16: {1,1,1,1}     32: {1,1,1,1,1}
      2: {1}         17: {7}           33: {2,5}
      3: {2}         18: {1,2,2}       34: {1,7}
      4: {1,1}       19: {8}           35: {3,4}
      5: {3}         20: {1,1,3}       36: {1,1,2,2}
      6: {1,2}       22: {1,5}         37: {12}
      7: {4}         23: {9}           38: {1,8}
      8: {1,1,1}     24: {1,1,1,2}     40: {1,1,1,3}
      9: {2,2}       25: {3,3}         41: {13}
     10: {1,3}       26: {1,6}         43: {14}
     11: {5}         27: {2,2,2}       44: {1,1,5}
     12: {1,1,2}     28: {1,1,4}       45: {2,2,3}
     13: {6}         29: {10}          46: {1,9}
     14: {1,4}       30: {1,2,3}       47: {15}
     15: {2,3}       31: {11}          48: {1,1,1,1,2}
		

Crossrefs

A302798 is the squarefree case.
A304709 counts partitions with pairwise coprime distinct parts, with ordered version A337665 and Heinz numbers A304711.
A304711 does not consider singletons relatively prime, except for (1).
A304712 counts the partitions with these Heinz numbers.
A316476 is the version for indivisibility instead of relative primality.
A328867 is the pairwise non-coprime instead of pairwise coprime version.
A337600 counts triples of this type, with ordered version A337602.
A338330 is the complement.
A000961 lists powers of primes.
A051424 counts pairwise coprime or singleton partitions.
A304038 gives the distinct prime indices of each positive integer.
A327516 counts pairwise coprime partitions.
A333228 ranks compositions whose distinct parts are pairwise coprime.

Programs

  • Mathematica
    Select[Range[100],#==1||PrimePowerQ[#]||CoprimeQ@@PrimePi/@First/@FactorInteger[#]&]

Formula

Equals A304711 \/ A000961.
Showing 1-10 of 10 results.