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

A357632 Numbers k such that the skew-alternating sum of the prime indices of k is 0.

Original entry on oeis.org

1, 4, 9, 16, 25, 36, 49, 64, 81, 90, 100, 121, 144, 169, 196, 210, 225, 256, 289, 324, 360, 361, 400, 441, 462, 484, 525, 529, 550, 576, 625, 676, 729, 784, 840, 841, 858, 900, 910, 961, 1024, 1089, 1155, 1156, 1225, 1296, 1326, 1369, 1440, 1444, 1521, 1600
Offset: 1

Views

Author

Gus Wiseman, Oct 09 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 + ....
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: {}
     4: {1,1}
     9: {2,2}
    16: {1,1,1,1}
    25: {3,3}
    36: {1,1,2,2}
    49: {4,4}
    64: {1,1,1,1,1,1}
    81: {2,2,2,2}
    90: {1,2,2,3}
   100: {1,1,3,3}
   121: {5,5}
   144: {1,1,1,1,2,2}
		

Crossrefs

The version for original alternating sum is A000290.
The version for standard compositions is A357627, reverse A357628.
Positions of zeros in A357630, reverse A357634.
The half-alternating form is A357631, reverse A357635.
The reverse version is A357636.
These partitions are counted by A357640, half A357639.
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 A357642.

Programs

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

A357633 Half-alternating sum of the partition having Heinz number n.

Original entry on oeis.org

0, 1, 2, 2, 3, 3, 4, 1, 4, 4, 5, 2, 6, 5, 5, 0, 7, 3, 8, 3, 6, 6, 9, 1, 6, 7, 2, 4, 10, 4, 11, 1, 7, 8, 7, 2, 12, 9, 8, 2, 13, 5, 14, 5, 3, 10, 15, 2, 8, 5, 9, 6, 16, 1, 8, 3, 10, 11, 17, 3, 18, 12, 4, 2, 9, 6, 19, 7, 11, 6, 20, 3, 21, 13, 4, 8, 9, 7, 22, 3, 0
Offset: 1

Views

Author

Gus Wiseman, Oct 09 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 partition with Heinz number 525 is (4,3,3,2) so a(525) = 4 + 3 - 3 - 2 = 2.
		

Crossrefs

The original alternating sum is A316524, reverse A344616.
The version for standard compositions is A357622, non-reverse A357621.
The skew-alternating form is A357634, non-reverse A357630.
Positions of zeros are A000583, non-reverse A357631.
The reverse version is A357629.
These partitions are counted by A357637, skew A357638.
A056239 adds up prime indices, row sums of A112798.
A351005 = alternately equal and unequal partitions, compositions A357643.
A351006 = alternately unequal and equal partitions, compositions A357644.
A357641 counts comps w/ half-alt sum 0, partitions A357639, even 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]}];
    Table[halfats[Reverse[primeMS[n]]],{n,30}]

A357636 Numbers k such that the skew-alternating sum of the partition having Heinz number k is 0.

Original entry on oeis.org

1, 4, 9, 12, 16, 25, 30, 36, 49, 63, 64, 70, 81, 90, 100, 108, 121, 144, 154, 165, 169, 192, 196, 210, 225, 256, 273, 286, 289, 300, 324, 325, 360, 361, 400, 441, 442, 462, 480, 484, 525, 529, 550, 561, 576, 588, 595, 625, 646, 676, 700, 729, 741, 750, 784
Offset: 1

Views

Author

Gus Wiseman, Oct 09 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 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:
    1: {}
    4: {1,1}
    9: {2,2}
   12: {1,1,2}
   16: {1,1,1,1}
   25: {3,3}
   30: {1,2,3}
   36: {1,1,2,2}
   49: {4,4}
   63: {2,2,4}
   64: {1,1,1,1,1,1}
   70: {1,3,4}
   81: {2,2,2,2}
   90: {1,2,2,3}
  100: {1,1,3,3}
  108: {1,1,2,2,2}
  121: {5,5}
  144: {1,1,1,1,2,2}
		

Crossrefs

The version for original alternating sum is A000290.
The half-alternating form is A000583, non-reverse A357631.
The version for standard compositions is A357628, non-reverse A357627.
The non-reverse version is A357632.
Positions of zeros in A357634, non-reverse A357630.
These partitions are counted by A357640, half A357639.
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 A357642.

Programs

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

A357622 Half-alternating sum of the reversed n-th composition in standard order.

Original entry on oeis.org

0, 1, 2, 2, 3, 3, 3, 1, 4, 4, 4, 0, 4, 2, 2, 0, 5, 5, 5, -1, 5, 1, 1, -1, 5, 3, 3, -1, 3, 1, 1, 1, 6, 6, 6, -2, 6, 0, 0, -2, 6, 2, 2, -2, 2, 0, 0, 2, 6, 4, 4, -2, 4, 0, 0, 0, 4, 2, 2, 0, 2, 2, 2, 2, 7, 7, 7, -3, 7, -1, -1, -3, 7, 1, 1, -3, 1, -1, -1, 3, 7, 3
Offset: 0

Views

Author

Gus Wiseman, Oct 08 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 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 357-th composition is (2,1,3,2,1) so a(357) = 1 + 2 - 3 - 1 + 2 = 1.
		

Crossrefs

See link for sequences related to standard compositions.
This is the reverse version of A357621.
The skew-alternating form is A357624, non-reverse A357623.
Positions of zeros are A357626, reverse A357625.
The version for prime indices is A357629.
The version for Heinz numbers of partitions is A357633.
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;
    halfats[f_]:=Sum[f[[i]]*(-1)^(1+Ceiling[i/2]),{i,Length[f]}];
    Table[halfats[Reverse[stc[n]]],{n,0,100}]

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

A357645 Triangle read by rows where T(n,k) is the number of integer compositions of n with half-alternating sum k, where k ranges from -n to n in steps of 2.

Original entry on oeis.org

1, 0, 1, 0, 0, 2, 0, 0, 1, 3, 0, 0, 2, 2, 4, 0, 0, 3, 5, 3, 5, 0, 0, 4, 8, 10, 4, 6, 0, 0, 5, 11, 18, 18, 5, 7, 0, 0, 6, 14, 28, 36, 30, 6, 8, 0, 0, 7, 17, 41, 63, 65, 47, 7, 9, 0, 0, 8, 20, 58, 104, 126, 108, 70, 8, 10, 0, 0, 9, 23, 80, 164, 230, 230, 168, 100, 9, 11
Offset: 0

Views

Author

Gus Wiseman, Oct 12 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 - ...

Examples

			Triangle begins:
   1
   0   1
   0   0   2
   0   0   1   3
   0   0   2   2   4
   0   0   3   5   3   5
   0   0   4   8  10   4   6
   0   0   5  11  18  18   5   7
   0   0   6  14  28  36  30   6   8
   0   0   7  17  41  63  65  47   7   9
   0   0   8  20  58 104 126 108  70   8  10
Row n = 6 counts the following compositions:
  (114)   (123)    (132)     (141)  (6)
  (1113)  (213)    (222)     (231)  (15)
  (1122)  (1212)   (312)     (321)  (24)
  (1131)  (1221)   (1311)    (411)  (33)
          (2112)   (2211)           (42)
          (2121)   (3111)           (51)
          (11121)  (11112)
          (11211)  (12111)
                   (21111)
                   (111111)
		

Crossrefs

Row sums are A011782.
For original alternating sum we have A097805, unordered A344651.
Column k = n-4 appears to be A177787.
The case of partitions is A357637, skew A357638.
The central column k=0 is A357641 (aerated).
The skew-alternating version is A357646.
The reverse version for partitions is A357704, skew A357705.
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
    halfats[f_]:=Sum[f[[i]]*(-1)^(1+Ceiling[i/2]),{i,Length[f]}];
    Table[Length[Select[Join@@Permutations/@IntegerPartitions[n],halfats[#]==k&]],{n,0,10},{k,-n,n,2}]

A177787 Number of paths from (0,0) to (n+2,n) using only up and right steps and avoiding two or more consecutive moves up or three or more consecutive moves right.

Original entry on oeis.org

2, 5, 10, 18, 30, 47, 70, 100, 138, 185, 242, 310, 390, 483, 590, 712, 850, 1005, 1178, 1370, 1582, 1815, 2070, 2348, 2650, 2977, 3330, 3710, 4118, 4555, 5022, 5520, 6050, 6613, 7210, 7842, 8510, 9215, 9958, 10740, 11562, 12425, 13330, 14278, 15270
Offset: 1

Views

Author

Shanzhen Gao, May 13 2010

Keywords

Comments

Strings of length 2n+2 over the alphabet {U, R} with n Rs and avoiding UU or RRR as substrings.
Also number of binary words with 3 1's and n 0's that do not contain the substring 101. a(2) = 5: 00111, 10011, 11001, 11100, 01110. - Alois P. Heinz, Jul 18 2013
Let (b(n)) be the p-INVERT of A010892 using p(S) = 1 - S^2; then b(n) = a(n+1) for n >= 0. See A292301. - Clark Kimberling, Sep 30 2017
From Gus Wiseman, Oct 13 2022: (Start)
Also the number of integer compositions of n+3 with half-alternating sum n-1, where 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 - ... For example, the a(1) = 2 through a(4) = 10 compositions are:
(112) (122) (132)
(1111) (212) (222)
(1211) (312)
(2111) (1311)
(11111) (2211)
(3111)
(11112)
(12111)
(21111)
(111111)
A001700/A138364 = compositions with alternating sum 0, ranked by A344619.
A357621 = half-alternating sum of standard compositions, reverse A357622.
A357641 = compositions with half-alternating sum 0, ranked by A357625.
(End)

Crossrefs

First differences of A227161. - Alois P. Heinz, Jul 18 2013

Programs

  • Magma
    I:=[2, 5, 10, 18]; [n le 4 select I[n] else 4*Self(n-1)-6*Self(n-2)+4*Self(n-3)-Self(n-4): n in [1..50]]; // Vincenzo Librandi, Jul 04 2012
  • Maple
    a:= n-> n/6*(11+n^2): seq(a(n), n=1..40);
  • Mathematica
    CoefficientList[Series[(2-3*x+2*x^2)/(x-1)^4,{x,0,50}],x] (* Vincenzo Librandi, Jul 04 2012 *)

Formula

a(n) = 1/6 * n (11 + n^2).
From R. J. Mathar, May 22 2010: (Start)
a(n) = A140226(n)/2.
a(n) = 4*a(n-1) - 6*a(n-2) + 4*a(n-3) - a(n-4).
G.f.: x*(2-3*x+2*x^2)/(x-1)^4. (End)

Extensions

More terms from R. J. Mathar, May 22 2010

A357646 Triangle read by rows where T(n,k) is the number of integer compositions 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, 1, 1, 0, 3, 3, 1, 1, 0, 4, 5, 5, 1, 1, 0, 5, 7, 10, 8, 1, 1, 0, 6, 9, 17, 18, 12, 1, 1, 0, 7, 11, 27, 35, 29, 17, 1, 1, 0, 8, 13, 41, 63, 63, 43, 23, 1, 1, 0, 9, 15, 60, 106, 126, 104, 60, 30, 1, 1, 0, 10, 17, 85, 168, 232, 230, 162, 80, 38, 1, 1
Offset: 0

Views

Author

Gus Wiseman, Oct 12 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   1   1
   0   3   3   1   1
   0   4   5   5   1   1
   0   5   7  10   8   1   1
   0   6   9  17  18  12   1   1
   0   7  11  27  35  29  17   1   1
   0   8  13  41  63  63  43  23   1   1
   0   9  15  60 106 126 104  60  30   1   1
Row n = 6 counts the following compositions:
  (15)   (24)    (33)      (42)     (51)  (6)
  (114)  (213)   (312)     (411)
  (123)  (222)   (321)     (1113)
  (132)  (231)   (1122)    (2112)
  (141)  (1131)  (1212)    (3111)
         (1221)  (2121)    (11112)
         (1311)  (2211)    (11121)
                 (11211)   (21111)
                 (12111)
                 (111111)
		

Crossrefs

The central column k=0 is A001700 (aerated), half A357641.
Row sums are A011782.
For original alternating sum we have A097805, unordered A344651.
The skew-alternating sum of standard compositions is A357623, half A357621.
The case of partitions is A357638, half A357637.
The half-alternating version is A357645.
The reverse version for partitions is A357705, half A357704.

Programs

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

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

Original entry on oeis.org

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

Views

Author

Gus Wiseman, Oct 10 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 - ...

Examples

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

Crossrefs

Row sums are A000041.
Last entry of row n is A008619(n).
The central column in the non-reverse case is A035363, skew A035544.
For original reverse-alternating sum we have A344612.
For original alternating sum we have A344651, ordered A097805.
The non-reverse version is A357637, skew A357638.
The central column is A357639, skew A357640.
The non-reverse ordered version (compositions) is A357645, skew A357646.
The skew-alternating version is A357705.
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
    halfats[f_]:=Sum[f[[i]]*(-1)^(1+Ceiling[i/2]),{i,Length[f]}];
    Table[Length[Select[Reverse/@IntegerPartitions[n],halfats[#]==k&]],{n,0,15},{k,-n,n,2}]

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}]
Previous Showing 11-20 of 22 results. Next