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

A357627 Numbers k such that the k-th composition in standard order has skew-alternating sum 0.

Original entry on oeis.org

0, 3, 10, 11, 15, 36, 37, 38, 43, 45, 54, 55, 58, 59, 63, 136, 137, 138, 140, 147, 149, 153, 166, 167, 170, 171, 175, 178, 179, 183, 190, 191, 204, 205, 206, 212, 213, 214, 219, 221, 228, 229, 230, 235, 237, 246, 247, 250, 251, 255, 528, 529, 530, 532, 536
Offset: 1

Views

Author

Gus Wiseman, Oct 08 2022

Keywords

Comments

We define the skew-alternating sum of a sequence (A, B, C, D, E, F, G, ...) to be A - B - C + D + E - F - G + ....
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: ()
    3: (1,1)
   10: (2,2)
   11: (2,1,1)
   15: (1,1,1,1)
   36: (3,3)
   37: (3,2,1)
   38: (3,1,2)
   43: (2,2,1,1)
   45: (2,1,2,1)
   54: (1,2,1,2)
   55: (1,2,1,1,1)
   58: (1,1,2,2)
   59: (1,1,2,1,1)
   63: (1,1,1,1,1,1)
		

Crossrefs

See link for sequences related to standard compositions.
The alternating form is A344619.
Positions of zeros in A357623.
The half-alternating form is A357625, reverse A357626.
The reverse version is A357628.
The version for prime indices is A357632.
The version for Heinz numbers of partitions is A357636.
A124754 gives alternating sum of standard compositions, reverse A344618.
A357637 counts partitions by half-alternating sum, skew A357638.
A357641 counts comps w/ half-alt sum 0, partitions A357639, even A357642.

Programs

  • Mathematica
    stc[n_]:=Differences[Prepend[Join @@ Position[Reverse[IntegerDigits[n,2]],1],0]]//Reverse;
    skats[f_]:=Sum[f[[i]]*(-1)^(1+Ceiling[(i+1)/2]),{i,Length[f]}];
    Select[Range[0,100],skats[stc[#]]==0&]

A357628 Numbers k such that the reversed k-th composition in standard order has skew-alternating sum 0.

Original entry on oeis.org

0, 3, 10, 14, 15, 36, 43, 44, 45, 52, 54, 58, 59, 61, 63, 136, 147, 149, 152, 153, 166, 168, 170, 175, 178, 179, 181, 183, 185, 190, 200, 204, 211, 212, 213, 217, 219, 221, 228, 230, 234, 235, 237, 239, 242, 246, 247, 250, 254, 255, 528, 547, 549, 553, 560
Offset: 1

Views

Author

Gus Wiseman, Oct 08 2022

Keywords

Comments

We define the skew-alternating sum of a sequence (A, B, C, D, E, F, G, ...) to be A - B - C + D + E - F - G + ....
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: ()
    3: (1,1)
   10: (2,2)
   14: (1,1,2)
   15: (1,1,1,1)
   36: (3,3)
   43: (2,2,1,1)
   44: (2,1,3)
   45: (2,1,2,1)
   52: (1,2,3)
   54: (1,2,1,2)
   58: (1,1,2,2)
   59: (1,1,2,1,1)
   61: (1,1,1,2,1)
   63: (1,1,1,1,1,1)
		

Crossrefs

See link for sequences related to standard compositions.
The alternating form is A344619.
Positions of zeros are A357624, non-reverse A357623.
The half-alternating form is A357626, non-reverse A357625.
The non-reverse version is A357627.
The version for prime indices is A357632.
The version for Heinz numbers of partitions is A357636.
A124754 gives alternating sum of standard compositions, reverse A344618.
A357637 counts partitions by half-alternating sum, skew A357638.
A357641 counts comps w/ half-alt sum 0, partitions A357639, even A357642.

Programs

  • Mathematica
    stc[n_]:=Differences[Prepend[Join @@ Position[Reverse[IntegerDigits[n,2]],1],0]]//Reverse;
    skats[f_]:=Sum[f[[i]]*(-1)^(1+Ceiling[(i+1)/2]),{i,Length[f]}];
    Select[Range[0,100],skats[Reverse[stc[#]]]==0&]

A357635 Numbers k such that the half-alternating sum of the partition having Heinz number k is 1.

Original entry on oeis.org

2, 8, 24, 32, 54, 128, 135, 162, 375, 384, 512, 648, 864, 875, 1250, 1715, 1944, 2048, 2160, 2592, 3773, 4374, 4802, 5000, 6000, 6144, 8192, 9317, 10368, 10935, 13122, 13824, 14000, 15000, 17303, 19208, 20000, 24167, 27440, 29282, 30375, 31104, 32768, 33750
Offset: 1

Views

Author

Gus Wiseman, Oct 28 2022

Keywords

Comments

We define the half-alternating sum of a sequence (A, B, C, D, E, F, G, ...) to be A + B - C - D + E + F - G - ...
The Heinz number of a partition (y_1,...,y_k) is prime(y_1)*...*prime(y_k). This gives a bijective correspondence between positive integers and integer partitions.

Examples

			The terms together with their prime indices begin:
    2: {1}
    8: {1,1,1}
   24: {1,1,1,2}
   32: {1,1,1,1,1}
   54: {1,2,2,2}
  128: {1,1,1,1,1,1,1}
  135: {2,2,2,3}
  162: {1,2,2,2,2}
  375: {2,3,3,3}
  384: {1,1,1,1,1,1,1,2}
  512: {1,1,1,1,1,1,1,1,1}
  648: {1,1,1,2,2,2,2}
  864: {1,1,1,1,1,2,2,2}
  875: {3,3,3,4}
		

Crossrefs

The version for k = 0 is A000583, standard compositions A357625-A357626.
The version for original alternating sum is A345958.
Positions of ones in A357633, non-reverse A357629.
The skew version for k = 0 is A357636, non-reverse A357632.
These partitions are counted by A035444, skew A035544.
The non-reverse version is A357851, k = 0 version A357631.
A056239 adds up prime indices, row sums of A112798.
A316524 gives alternating sum of prime indices, reverse A344616.
A351005 = alternately equal and unequal partitions, compositions A357643.
A351006 = alternately unequal and equal partitions, compositions A357644.
A357641 counts comps w/ half-alt sum 0, even-length A357642.

Programs

  • Mathematica
    primeMS[n_]:=If[n==1,{},Flatten[Cases[FactorInteger[n],{p_,k_}:>Table[PrimePi[p],{k}]]]];
    halfats[f_]:=Sum[f[[i]]*(-1)^(1+Ceiling[i/2]),{i,Length[f]}];
    Select[Range[1000],halfats[Reverse[primeMS[#]]]==1&]

A357705 Triangle read by rows where T(n,k) is the number of reversed integer partitions of n with skew-alternating sum k, where k ranges from -n to n in steps of 2.

Original entry on oeis.org

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

Views

Author

Gus Wiseman, Oct 10 2022

Keywords

Comments

We define the skew-alternating sum of a sequence (A, B, C, D, E, F, G, ...) to be A - B - C + D + E - F - G + ...

Examples

			Triangle begins:
  1
  0  1
  0  1  1
  0  2  0  1
  0  2  2  0  1
  0  3  1  2  0  1
  0  3  2  3  2  0  1
  0  4  2  4  1  3  0  1
  0  4  3  3  6  2  3  0  1
  0  5  3  5  3  7  2  4  0  1
  0  5  4  5  4  9  7  3  4  0  1
  0  6  4  7  3 12  5 10  3  5  0  1
  0  6  5  7  5 10 16  7 11  4  5  0  1
  0  7  5  9  5 14 11 18  7 14  4  6  0  1
Row n = 7 counts the following reversed partitions:
  .  (16)   (25)   (34)       (1123)  (1114)   .  (7)
     (115)  (223)  (1222)             (11113)
     (124)         (111112)           (11122)
     (133)         (1111111)
		

Crossrefs

Row sums are A000041.
First nonzero entry of each row is A004526.
The central column is A357640, half A357639.
For original alternating sum we have A344651, ordered A097805.
The half-alternating version is A357704.
The ordered non-reverse version (compositions) is A357646, half A357645.
The non-reverse version is A357638, half A357637.
A351005 = alternately equal and unequal partitions, compositions A357643.
A351006 = alternately unequal and equal partitions, compositions A357644.
A357621 gives half-alternating sum of standard compositions, skew A357623.
A357629 gives half-alternating sum of prime indices, skew A357630.
A357633 gives half-alternating sum of Heinz partition, skew A357634.

Programs

  • Mathematica
    skats[f_]:=Sum[f[[i]]*(-1)^(1+Ceiling[(i+1)/2]),{i,Length[f]}];
    Table[Length[Select[Reverse/@IntegerPartitions[n],skats[#]==k&]],{n,0,11},{k,-n,n,2}]

A357706 Numbers k such that the k-th composition in standard order has half-alternating sum and skew-alternating sum both 0.

Original entry on oeis.org

0, 15, 45, 54, 59, 153, 170, 179, 204, 213, 230, 235, 247, 255, 561, 594, 611, 660, 677, 710, 715, 727, 735, 750, 765, 792, 809, 842, 851, 871, 879, 894, 908, 917, 934, 939, 951, 959, 973, 982, 987, 1005, 1014, 1019
Offset: 1

Views

Author

Gus Wiseman, Oct 13 2022

Keywords

Comments

We define the half-alternating sum of a sequence (A, B, C, D, E, F, G, ...) to be A + B - C - D + E + F - G - ..., and the skew-alternating sum to be A - B - C + D + E - F - G + ...
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.

Crossrefs

For partitions and half only (or both): A000583, counted by A035363.
These compositions are counted by A228248.
For half-alternating only: A357625, reverse A357626, counted by A357641.
For skew-alternating only: A357627, reverse A357628, counted by A001700.
For reversed partitions and half only: A357631, counted by A357639.
For reversed partitions and skew only A357632, counted by A357640.
For partitions and skew only: A357636, counted by A035594.

Programs

  • Mathematica
    stc[n_]:=Differences[Prepend[Join@@Position[Reverse[IntegerDigits[n,2]],1],0]]//Reverse;
    halfats[f_]:=Sum[f[[i]]*(-1)^(1+Ceiling[i/2]),{i,Length[f]}];
    skats[f_]:=Sum[f[[i]]*(-1)^(1+Ceiling[(i+1)/2]),{i,Length[f]}];
    Select[Range[0,1000],halfats[stc[#]]==0&&skats[stc[#]]==0&]

Formula

Intersection of A357625 and A357627.

A357707 Numbers whose prime indices have equal number of parts congruent to each of 1 and 3 (mod 4).

Original entry on oeis.org

1, 3, 7, 9, 10, 13, 19, 21, 27, 29, 30, 34, 37, 39, 43, 49, 53, 55, 57, 61, 62, 63, 70, 71, 79, 81, 87, 89, 90, 91, 94, 100, 101, 102, 107, 111, 113, 115, 117, 129, 130, 131, 133, 134, 139, 147, 151, 159, 163, 165, 166, 169, 171, 173, 181, 183, 186, 187, 189
Offset: 1

Views

Author

Gus Wiseman, Oct 12 2022

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 terms together with their prime indices begin:
     1: {}
     3: {2}
     7: {4}
     9: {2,2}
    10: {1,3}
    13: {6}
    19: {8}
    21: {2,4}
    27: {2,2,2}
    29: {10}
    30: {1,2,3}
		

Crossrefs

These partitions are counted by A035544.
Includes A066207 = products of primes of even index.
The conjugate partitions are ranked by A357636, reverse A357632.
The conjugate reverse version is A357640 (aerated).
A056239 adds up prime indices, row sums of A112798.
A316524 gives alternating sum of prime indices, reverse A344616.
A344651 counts partitions by alternating sum, ordered A097805.
A357705 counts reversed partitions by skew-alternating sum, half A357704.

Programs

  • Mathematica
    primeMS[n_]:=If[n==1,{},Flatten[Cases[FactorInteger[n],{p_,k_}:>Table[PrimePi[p],{k}]]]];
    Select[Range[100],Count[primeMS[#],?(Mod[#,4]==1&)]==Count[primeMS[#],?(Mod[#,4]==3&)]&]

A357851 Numbers k such that the half-alternating sum of the prime indices of k is 1.

Original entry on oeis.org

2, 8, 18, 32, 45, 50, 72, 98, 105, 128, 162, 180, 200, 231, 242, 275, 288, 338, 392, 420, 429, 450, 455, 512, 578, 648, 663, 720, 722, 800, 833, 882, 924, 935, 968, 969, 1050, 1058, 1100, 1125, 1152, 1235, 1250, 1311, 1352, 1458, 1463, 1568, 1680, 1682, 1716
Offset: 1

Views

Author

Gus Wiseman, Oct 28 2022

Keywords

Comments

We define the half-alternating sum of a sequence (A, B, C, D, E, F, G, ...) to be A + B - C - D + E + F - G - ...
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 terms together with their prime indices begin:
     2: {1}
     8: {1,1,1}
    18: {1,2,2}
    32: {1,1,1,1,1}
    45: {2,2,3}
    50: {1,3,3}
    72: {1,1,1,2,2}
    98: {1,4,4}
   105: {2,3,4}
   128: {1,1,1,1,1,1,1}
   162: {1,2,2,2,2}
   180: {1,1,2,2,3}
   200: {1,1,1,3,3}
		

Crossrefs

The version for k = 0 is A357631, standard compositions A357625-A357626.
The version for original alternating sum is A001105.
Positions of ones in A357629, reverse A357633.
The skew version for k = 0 is A357632, reverse A357636.
Partitions with these Heinz numbers are counted by A035444, skew A035544.
The reverse version is A357635, k = 0 version A000583.
A056239 adds up prime indices, row sums of A112798.
A316524 gives alternating sum of prime indices, reverse A344616.
A351005 = alternately equal and unequal partitions, compositions A357643.
A351006 = alternately unequal and equal partitions, compositions A357644.
A357641 counts comps w/ half-alt sum 0, even-length A357642.

Programs

  • Mathematica
    primeMS[n_]:=If[n==1,{},Flatten[Cases[FactorInteger[n],{p_,k_}:>Table[PrimePi[p],{k}]]]];
    halfats[f_]:=Sum[f[[i]]*(-1)^(1+Ceiling[i/2]),{i,Length[f]}];
    Select[Range[1000],halfats[primeMS[#]]==1&]
Previous Showing 11-17 of 17 results.