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-8 of 8 results.

A329139 Numbers whose prime signature is an aperiodic word.

Original entry on oeis.org

1, 2, 3, 4, 5, 7, 8, 9, 11, 12, 13, 16, 17, 18, 19, 20, 23, 24, 25, 27, 28, 29, 31, 32, 37, 40, 41, 43, 44, 45, 47, 48, 49, 50, 52, 53, 54, 56, 59, 60, 61, 63, 64, 67, 68, 71, 72, 73, 75, 76, 79, 80, 81, 83, 84, 88, 89, 90, 92, 96, 97, 98, 99, 101, 103, 104
Offset: 1

Views

Author

Gus Wiseman, Nov 09 2019

Keywords

Comments

First differs from A319161 in having 1260 = 2*2 * 3^2 * 5^1 * 7^1. First differs from A325370 in having 420 = 2^2 * 3^1 * 5^1 * 7^1.
A number's prime signature (A124010) is the sequence of positive exponents in its prime factorization.
A sequence is aperiodic if its cyclic rotations are all different.

Examples

			The sequence of terms together with their prime signatures begins:
   1: ()
   2: (1)
   3: (1)
   4: (2)
   5: (1)
   7: (1)
   8: (3)
   9: (2)
  11: (1)
  12: (2,1)
  13: (1)
  16: (4)
  17: (1)
  18: (1,2)
  19: (1)
  20: (2,1)
  23: (1)
  24: (3,1)
  25: (2)
  27: (3)

Crossrefs

Complement of A329140.
Aperiodic compositions are A000740.
Aperiodic binary words are A027375.
Numbers whose binary expansion is aperiodic are A328594.
Numbers whose prime signature is a Lyndon word are A329131.
Numbers whose prime signature is a necklace are A329138.
Cf. A025487, A097318, A112798, A124010, A178472, A181819, A304678, A329133, A329135, A329136, A329137, A329142.

Programs

  • Mathematica
    aperQ[q_]:=Array[RotateRight[q,#1]&,Length[q],1,UnsameQ];
Select[Range[100],aperQ[Last/@FactorInteger[#]]&]

A329134 Numbers whose differences of prime indices are a periodic word.

Original entry on oeis.org

8, 16, 27, 30, 32, 64, 81, 105, 110, 125, 128, 180, 210, 238, 243, 256, 273, 343, 385, 450, 506, 512, 625, 627, 729, 806, 935, 1001, 1024, 1080, 1100, 1131, 1155, 1331, 1394, 1495, 1575, 1729, 1786, 1870, 1887, 2048, 2187, 2197, 2310, 2401, 2431, 2451, 2635
Offset: 1

Views

Author

Gus Wiseman, Nov 09 2019

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.
A sequence is periodic if its cyclic rotations are not all different.

Examples

			The sequence of terms together with their differences of prime indices begins:
     8: (0,0)
    16: (0,0,0)
    27: (0,0)
    30: (1,1)
    32: (0,0,0,0)
    64: (0,0,0,0,0)
    81: (0,0,0)
   105: (1,1)
   110: (2,2)
   125: (0,0)
   128: (0,0,0,0,0,0)
   180: (0,1,0,1)
   210: (1,1,1)
   238: (3,3)
   243: (0,0,0,0)
   256: (0,0,0,0,0,0,0)
   273: (2,2)
   343: (0,0)
   385: (1,1)
   450: (1,0,1,0)

Crossrefs

Complement of A329135.
These are the Heinz numbers of the partitions counted by A329144.
Periodic binary words are A152061.
Periodic compositions are A178472.
Numbers whose binary expansion is periodic are A121016.
Numbers whose prime signature is periodic are A329140.
Cf. A000740, A027375, A056239, A112798, A124010, A328594, A329132, A329139.

Programs

  • Mathematica
    primeMS[n_]:=If[n==1,{},Flatten[Cases[FactorInteger[n],{p_,k_}:>Table[PrimePi[p],{k}]]]];
aperQ[q_]:=Array[RotateRight[q,#1]&,Length[q],1,UnsameQ];
Select[Range[10000],!aperQ[Differences[primeMS[#]]]&]

A329132 Numbers whose augmented differences of prime indices are a periodic sequence.

Original entry on oeis.org

4, 8, 15, 16, 32, 55, 64, 90, 105, 119, 128, 225, 253, 256, 403, 512, 540, 550, 697, 893, 935, 1024, 1155, 1350, 1357, 1666, 1943, 2048, 2263, 3025, 3071, 3150, 3240, 3375, 3451, 3927, 3977, 4096, 4429, 5123, 5500, 5566, 6731, 7735, 8083, 8100, 8192, 9089
Offset: 1

Views

Author

Gus Wiseman, Nov 06 2019

Keywords

Comments

The augmented differences aug(y) of an integer partition y of length k are given by aug(y)i = y_i - y{i + 1} + 1 if i < k and aug(y)_k = y_k. For example, aug(6,5,5,3,3,3) = (2,1,3,1,1,3).
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.
A sequence is periodic if its cyclic rotations are not all different.

Examples

			The sequence of terms together with their augmented differences of prime indices begins:
     4: (1,1)
     8: (1,1,1)
    15: (2,2)
    16: (1,1,1,1)
    32: (1,1,1,1,1)
    55: (3,3)
    64: (1,1,1,1,1,1)
    90: (2,1,2,1)
   105: (2,2,2)
   119: (4,4)
   128: (1,1,1,1,1,1,1)
   225: (1,2,1,2)
   253: (5,5)
   256: (1,1,1,1,1,1,1,1)
   403: (6,6)
   512: (1,1,1,1,1,1,1,1,1)
   540: (2,1,1,2,1,1)
   550: (3,1,3,1)
   697: (7,7)
   893: (8,8)

Crossrefs

Complement of A329133.
These are the Heinz numbers of the partitions counted by A329143.
Periodic binary words are A152061.
Periodic compositions are A178472.
Numbers whose binary expansion is periodic are A121016.
Numbers whose prime signature is periodic are A329140.
Numbers whose differences of prime indices are periodic are A329134.
Cf. A000961, A027375, A056239, A112798, A325356, A325389, A325394, A328594, A329135, A329136, A329139.

Programs

  • Mathematica
    primeMS[n_]:=If[n==1,{},Flatten[Cases[FactorInteger[n],{p_,k_}:>Table[PrimePi[p],{k}]]]];
aperQ[q_]:=Array[RotateRight[q,#1]&,Length[q],1,UnsameQ];
aug[y_]:=Table[If[i

A329136 Number of integer partitions of n whose augmented differences are an aperiodic word.

Original entry on oeis.org

1, 1, 1, 2, 4, 5, 10, 14, 19, 28, 40, 53, 75, 99, 131, 172, 226, 294, 380, 488, 617, 787, 996, 1250, 1565, 1953, 2425, 3003, 3705, 4559, 5589, 6836, 8329, 10132, 12292, 14871, 17950, 21629, 25988, 31169, 37306, 44569, 53139, 63247, 75133, 89111, 105515, 124737
Offset: 0

Views

Author

Gus Wiseman, Nov 09 2019

Keywords

Comments

The augmented differences aug(y) of an integer partition y of length k are given by aug(y)i = y_i - y{i + 1} + 1 if i < k and aug(y)_k = y_k. For example, aug(6,5,5,3,3,3) = (2,1,3,1,1,3).
A sequence is aperiodic if its cyclic rotations are all different.

Examples

			The a(1) = 1 through a(7) = 14 partitions:
  (1)  (2)  (3)    (4)      (5)        (6)          (7)
            (2,1)  (2,2)    (4,1)      (3,3)        (4,3)
                   (3,1)    (2,2,1)    (4,2)        (5,2)
                   (2,1,1)  (3,1,1)    (5,1)        (6,1)
                            (2,1,1,1)  (2,2,2)      (3,2,2)
                                       (3,2,1)      (3,3,1)
                                       (4,1,1)      (4,2,1)
                                       (2,2,1,1)    (5,1,1)
                                       (3,1,1,1)    (2,2,2,1)
                                       (2,1,1,1,1)  (3,2,1,1)
                                                    (4,1,1,1)
                                                    (2,2,1,1,1)
                                                    (3,1,1,1,1)
                                                    (2,1,1,1,1,1)
With augmented differences:
  (1)  (2)  (3)    (4)      (5)        (6)          (7)
            (2,1)  (1,2)    (4,1)      (1,3)        (2,3)
                   (3,1)    (1,2,1)    (3,2)        (4,2)
                   (2,1,1)  (3,1,1)    (5,1)        (6,1)
                            (2,1,1,1)  (1,1,2)      (1,3,1)
                                       (2,2,1)      (2,1,2)
                                       (4,1,1)      (3,2,1)
                                       (1,2,1,1)    (5,1,1)
                                       (3,1,1,1)    (1,1,2,1)
                                       (2,1,1,1,1)  (2,2,1,1)
                                                    (4,1,1,1)
                                                    (1,2,1,1,1)
                                                    (3,1,1,1,1)
                                                    (2,1,1,1,1,1)

Crossrefs

The Heinz numbers of these partitions are given by A329133.
The periodic version is A329143.
The non-augmented version is A329137.
Aperiodic binary words are A027375.
Aperiodic compositions are A000740.
Numbers whose binary expansion is aperiodic are A328594.
Numbers whose differences of prime indices are aperiodic are A329135.
Numbers whose prime signature is aperiodic are A329139.
Cf. A152061, A325351, A325356, A329132, A329134, A329139, A329140.

Programs

  • Mathematica
    aperQ[q_]:=Array[RotateRight[q,#1]&,Length[q],1,UnsameQ];
aug[y_]:=Table[If[i

Formula

a(n) + A329143(n) = A000041(n).

A329133 Numbers whose augmented differences of prime indices are an aperiodic sequence.

Original entry on oeis.org

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

Views

Author

Gus Wiseman, Nov 09 2019

Keywords

Comments

The augmented differences aug(y) of an integer partition y of length k are given by aug(y)i = y_i - y{i + 1} + 1 if i < k and aug(y)_k = y_k. For example, aug(6,5,5,3,3,3) = (2,1,3,1,1,3).
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.
A finite sequence is aperiodic if its cyclic rotations are all different.

Examples

			The sequence of terms together with their augmented differences of prime indices begins:
    1: ()
    2: (1)
    3: (2)
    5: (3)
    6: (2,1)
    7: (4)
    9: (1,2)
   10: (3,1)
   11: (5)
   12: (2,1,1)
   13: (6)
   14: (4,1)
   17: (7)
   18: (1,2,1)
   19: (8)
   20: (3,1,1)
   21: (3,2)
   22: (5,1)
   23: (9)
   24: (2,1,1,1)

Crossrefs

Complement of A329132.
These are the Heinz numbers of the partitions counted by A329136.
Aperiodic binary words are A027375.
Aperiodic compositions are A000740.
Numbers whose binary expansion is aperiodic are A328594.
Numbers whose prime signature is aperiodic are A329139.
Numbers whose differences of prime indices are aperiodic are A329135.
Cf. A056239, A112798, A121016, A124010, A152061, A246029, A325351, A325389, A329134, A329140.

Programs

  • Mathematica
    primeMS[n_]:=If[n==1,{},Flatten[Cases[FactorInteger[n],{p_,k_}:>Table[PrimePi[p],{k}]]]];
aperQ[q_]:=Array[RotateRight[q,#1]&,Length[q],1,UnsameQ];
aug[y_]:=Table[If[i

A329143 Number of integer partitions of n whose augmented differences are a periodic word.

Original entry on oeis.org

0, 0, 1, 1, 1, 2, 1, 1, 3, 2, 2, 3, 2, 2, 4, 4, 5, 3, 5, 2, 10, 5, 6, 5, 10, 5, 11, 7, 13, 6, 15, 6, 20, 11, 18, 12, 27, 8, 27, 16, 32, 14, 35, 14, 42, 23, 43, 17, 56, 17, 61, 31, 67, 25, 78, 28, 88, 41, 89, 35, 119, 39, 116, 60, 131, 52, 154, 52, 170, 75, 182
Offset: 0

Views

Author

Gus Wiseman, Nov 10 2019

Keywords

Comments

The augmented differences aug(y) of an integer partition y of length k are given by aug(y)i = y_i - y{i + 1} + 1 if i < k and aug(y)_k = y_k. For example, aug(6,5,5,3,3,3) = (2,1,3,1,1,3).
A finite sequence is periodic if its cyclic rotations are not all different.

Examples

			The a(n) partitions for n = 2, 5, 8, 14, 16, 22:
  11  32     53        95              5533              7744
      11111  3221      5432            7441              9652
             11111111  32222111        533311            554332
                       11111111111111  33222211          54333211
                                       1111111111111111  332222221111
                                                         1111111111111111111111

Crossrefs

The Heinz numbers of these partitions are given by A329132.
The aperiodic version is A329136.
The non-augmented version is A329144.
Periodic binary words are A152061.
Periodic compositions are A178472.
Numbers whose binary expansion is periodic are A121016.
Numbers whose prime signature is periodic are A329140.
Cf. A000740, A027375, A328594, A329133, A329135, A325351, A325356, A329134.

Programs

  • Mathematica
    aperQ[q_]:=Array[RotateRight[q,#1]&,Length[q],1,UnsameQ];
aug[y_]:=Table[If[i

Formula

a(n) + A329136(n) = A000041(n).

Extensions

More terms from Jinyuan Wang, Jun 27 2020

A329144 Number of integer partitions of n whose differences are a periodic word.

Original entry on oeis.org

0, 0, 1, 1, 1, 3, 1, 2, 5, 3, 2, 8, 2, 5, 9, 7, 5, 12, 7, 7, 19, 9, 9, 21, 12, 15, 23, 18, 17, 29, 21, 19, 42, 23, 31, 42, 38, 29, 53, 43, 44, 62, 49, 52, 79, 55, 72, 75, 87, 63, 117, 79, 104, 107, 120, 99, 156, 117, 143, 147
Offset: 1

Views

Author

Gus Wiseman, Nov 10 2019

Keywords

Comments

A finite sequence is periodic if its cyclic rotations are not all different.

Examples

			The a(n) partitions for n = 3, 6, 8, 9, 12, 15, 16:
  111  222     2222      333        444           555              4444
       321     11111111  432        543           654              7531
       111111            531        642           753              44332
                         32211      741           852              3332221
                         111111111  3333          951              4332211
                                    222222        33333            22222222
                                    3222111       54321            1111111111111111
                                    111111111111  322221111
                                                  111111111111111

Crossrefs

The Heinz numbers of these partitions are given by A329134.
The augmented version is A329143.
Periodic binary words are A152061.
Periodic compositions are A178472.
Numbers whose binary expansion is periodic are A121016.
Numbers whose prime signature is periodic are A329140.
Cf. A000740, A027375, A059966, A328594, A328596, A329132, A329135, A329136.

Programs

  • Mathematica
    aperQ[q_]:=Array[RotateRight[q,#1]&,Length[q],1,UnsameQ];
Table[Length[Select[IntegerPartitions[n],!aperQ[Differences[#]]&]],{n,30}]

A329137 Number of integer partitions of n whose differences are an aperiodic word.

Original entry on oeis.org

1, 1, 2, 2, 4, 6, 8, 14, 20, 25, 39, 54, 69, 99, 130, 167, 224, 292, 373, 483, 620, 773, 993, 1246, 1554, 1946, 2421, 2987, 3700, 4548, 5575, 6821, 8330, 10101, 12287, 14852, 17935, 21599, 25986, 31132, 37295, 44539, 53112, 63212, 75123, 89055, 105503, 124682
Offset: 0

Views

Author

Gus Wiseman, Nov 09 2019

Keywords

Comments

A sequence is aperiodic if its cyclic rotations are all different.

Examples

			The a(1) = 1 through a(7) = 14 partitions:
  (1)  (2)    (3)    (4)      (5)        (6)          (7)
       (1,1)  (2,1)  (2,2)    (3,2)      (3,3)        (4,3)
                     (3,1)    (4,1)      (4,2)        (5,2)
                     (2,1,1)  (2,2,1)    (5,1)        (6,1)
                              (3,1,1)    (4,1,1)      (3,2,2)
                              (2,1,1,1)  (2,2,1,1)    (3,3,1)
                                         (3,1,1,1)    (4,2,1)
                                         (2,1,1,1,1)  (5,1,1)
                                                      (2,2,2,1)
                                                      (3,2,1,1)
                                                      (4,1,1,1)
                                                      (2,2,1,1,1)
                                                      (3,1,1,1,1)
                                                      (2,1,1,1,1,1)
With differences:
  ()  ()   ()   ()     ()       ()         ()
      (0)  (1)  (0)    (1)      (0)        (1)
                (2)    (3)      (2)        (3)
                (1,0)  (0,1)    (4)        (5)
                       (2,0)    (3,0)      (0,2)
                       (1,0,0)  (0,1,0)    (1,0)
                                (2,0,0)    (2,1)
                                (1,0,0,0)  (4,0)
                                           (0,0,1)
                                           (1,1,0)
                                           (3,0,0)
                                           (0,1,0,0)
                                           (2,0,0,0)
                                           (1,0,0,0,0)

Crossrefs

The Heinz numbers of these partitions are given by A329135.
The periodic version is A329144.
The augmented version is A329136.
Aperiodic binary words are A027375.
Aperiodic compositions are A000740.
Numbers whose binary expansion is aperiodic are A328594.
Numbers whose prime signature is aperiodic are A329139.
Cf. A152061, A325356, A329132, A329133, A329134, A329140.

Programs

  • Mathematica
    aperQ[q_]:=Array[RotateRight[q,#1]&,Length[q],1,UnsameQ];
Table[Length[Select[IntegerPartitions[n],aperQ[Differences[#]]&]],{n,0,30}]

Formula

a(n) + A329144(n) = A000041(n).
Showing 1-8 of 8 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.