A357626 -id:A357626 - cp's OEIS frontend

A357641 Number of integer compositions of 2n whose half-alternating sum is 0.

1, 0, 2, 8, 28, 104, 396, 1504, 5720, 21872, 83980, 323344, 1248072, 4828784, 18721080, 72711552, 282861360, 1101980000, 4298748300, 16789002736, 65641204200, 256895795312, 1006308200040, 3945185586368, 15478849767888, 60774329914144, 238775589937976

Offset: 0

Gus Wiseman, Oct 12 2022

nonn

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 a(0) = 1 through a(3) = 8 compositions:
  ()  .  (112)   (123)
         (1111)  (213)
                 (1212)
                 (1221)
                 (2112)
                 (2121)
                 (11121)
                 (11211)

Alois P. Heinz, Table of n, a(n) for n = 0..1664

The skew-alternating version appears to be A001700.
The version for partitions is A035363.
The skew-alternating form is A088218 (also for full alternating sum).
These compositions are ranked by A357625, reverse A357626.
For reversed partitions we have A357639, ranked by A357631.
A124754 gives alternating sum of standard compositions, reverse A344618.
A357621 = half-alternating sum of standard compositions, reverse A357622.
A357637 counts partitions by half-alternating sum, skew A357638.
Cf. A000583, A001511, A053251, A344619, A357136, A357182, A357627, A357628, A357629, A357633, A357642.

a:= proc(n) option remember; `if`(n<3, [1, 0, 2][n+1],
      (8*(n-3)*(5*n-7)*(2*n-5)*a(n-3) -4*(5*n-12)*(n-2)^2*a(n-2)
       +2*(2*n-5)*(5*n-7)*n*a(n-1))/((5*n-12)*(n+1)*(n-2)))
    end:
seq(a(n), n=0..40);  # Alois P. Heinz, Oct 19 2022

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

a(11)-a(26) from Alois P. Heinz, Oct 19 2022

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

Original entry on oeis.org

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

Offset: 0

Gus Wiseman, Oct 07 2022

sign

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.

			The 358-th composition is (2,1,3,1,2) so a(358) = 2 + 1 - 3 - 1 + 2 = 1.

Gus Wiseman, Statistics, classes, and transformations of standard compositions

See link for sequences related to standard compositions.
The reverse version is A357622.
The skew-alternating form is A357623, reverse A357624.
Positions of zeros are A357625, reverse A357626.
The version for prime indices is A357629.
The version for Heinz numbers of partitions is A357633.
A357637 counts partitions by half-alternating sum, skew A357638.
A357641 counts comps w/ half-alt sum 0, partitions A357639, even A357642.
Cf. A001511, A053251, A357136, A357182, A357183, A357184, A357185.
Cf. A357627, A357628, A357630, A357631, A357634, A357635, A357640.

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[stc[n]],{n,0,100}]

Positions of first appearances are powers of 2 and even powers of 2 times 7, or A029746 without 7.

A357623 Skew-alternating sum of the n-th composition in standard order.

Original entry on oeis.org

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

Offset: 0

Gus Wiseman, Oct 08 2022

sign

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.

			The 358-th composition is (2,1,3,1,2) so a(358) = 2 - 1 - 3 + 1 + 2 = 1.

Gus Wiseman, Statistics, classes, and transformations of standard compositions

See link for sequences related to standard compositions.
Positions of positive firsts appear to be A029744.
The half-alternating form is A357621, reverse A357622.
The reverse version is A357624.
Positions of zeros are A357627, reverse A357628.
The version for prime indices is A357630.
The version for Heinz numbers of partitions is A357634.
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.
Cf. A001700, A001511, A053251, A344619, A357136, A357182, A357183, A357184, A357185, A357625, A357626.

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]}];
Table[skats[stc[n]],{n,0,100}]

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

Original entry on oeis.org

0, 14, 15, 44, 45, 46, 52, 53, 54, 59, 61, 152, 153, 154, 156, 168, 169, 170, 172, 179, 181, 185, 200, 201, 202, 204, 211, 213, 217, 230, 231, 234, 235, 239, 242, 243, 247, 254, 255, 560, 561, 562, 564, 568, 592, 593, 594, 596, 600, 611, 613, 617, 625, 656

Offset: 1

Gus Wiseman, Oct 08 2022

nonn

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.

			The sequence together with the corresponding compositions begins:
    0: ()
   14: (1,1,2)
   15: (1,1,1,1)
   44: (2,1,3)
   45: (2,1,2,1)
   46: (2,1,1,2)
   52: (1,2,3)
   53: (1,2,2,1)
   54: (1,2,1,2)
   59: (1,1,2,1,1)
   61: (1,1,1,2,1)

John Tyler Rascoe, Table of n, a(n) for n = 1..7762
Gus Wiseman, Statistics, classes, and transformations of standard compositions

See link for sequences related to standard compositions.
The version for full alternating sum is A344619.
Positions of zeros in A357621.
The reverse version is A357626.
The skew-alternating form is A357627, reverse A357628.
The version for prime indices is A357631.
The version for Heinz numbers of partitions is A357635.
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.
Cf. A001511, A053251, A357136, A357182, A357183, A357184, A357185, A357622, A357623, A357629, A357633.

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]}];
Select[Range[0,100],halfats[stc[#]]==0&]

from itertools import count, islice
def comp(n): #row n of A066099 after Franklin T. Adams-Watters
    v,k = [],0
    while n > 0:
        k += 1
        if n%2 == 1:
            v.append(k)
            k = 0
        n = n//2
    return(v[::-1])
def a_gen():
    for n in count(0):
        c = comp(n)
        x = sum(c[i]*(-1)**(i//2) for i in range(len(c)))
        if x == 0:
            yield(n)
A357625_list = list(islice(a_gen(), 60)) # John Tyler Rascoe, Jun 01 2024

A357629 Half-alternating sum of the prime indices of n.

Original entry on oeis.org

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

Offset: 1

Gus Wiseman, Oct 08 2022

sign

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.

			The prime indices of 525 are {2,3,3,4} so a(525) = 2 + 3 - 3 - 4 = -2.

The original alternating sum is A316524, reverse A344616.
The version for standard compositions is A357621, reverse A357622.
The skew-alternating form is A357630, reverse A357634.
Positions of zeros are A357631, reverse A357635.
The reverse version is A357633.
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.
Cf. A003963, A053251, A055932, A357189, A357485-A357488, A357623-A357626, A357632, A357636, A357640.

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[primeMS[n]],{n,30}]

A357631 Numbers k such that the half-alternating sum of the prime indices of k is 0.

Original entry on oeis.org

1, 12, 16, 30, 63, 70, 81, 108, 154, 165, 192, 256, 273, 286, 300, 325, 442, 480, 561, 588, 595, 625, 646, 700, 741, 750, 874, 931, 972, 1008, 1045, 1080, 1120, 1173, 1296, 1334, 1452, 1470, 1495, 1540, 1653, 1728, 1771, 1798, 2028, 2139, 2294, 2401, 2430

Offset: 1

Gus Wiseman, Oct 09 2022

nonn

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.
If k is a term, then so is m^4 * k for any m >= 1. - Robert Israel, Oct 10 2023

			The terms together with their prime indices begin:
    1: {}
   12: {1,1,2}
   16: {1,1,1,1}
   30: {1,2,3}
   63: {2,2,4}
   70: {1,3,4}
   81: {2,2,2,2}
  108: {1,1,2,2,2}
  154: {1,4,5}
  165: {2,3,5}
  192: {1,1,1,1,1,1,2}
  256: {1,1,1,1,1,1,1,1}
  273: {2,4,6}
  286: {1,5,6}
  300: {1,1,2,3,3}

Robert Israel, Table of n, a(n) for n = 1..10000

The version for original alternating sum is A000290.
The version for standard compositions is A357625, reverse A357626.
Positions of zeros in A357629, reverse A357633.
The skew-alternating form is A357632, reverse A357636.
The reverse version is A357635.
These partitions are counted by A357639, skew A357640.
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.
Cf. A003963, A053251, A055932, A357189, A357485-A357488, A357621-A357624, A357630, A357634, A357637.

f:= proc(n) local F,Q,i;
F:= sort(ifactors(n)[2],(s,t) -> s[1] numtheory:-pi(t[1])$t[2],F);
Q:= [-1,1,1,-1];
add(Q[i mod 4 + 1]*F[i],i=1..nops(F))
end proc:
select(f=0, [$1..10000]); # Robert Israel, Oct 10 2023

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[#]]==0&]

A357642 Number of even-length integer compositions of 2n whose half-alternating sum is 0.

Original entry on oeis.org

1, 0, 1, 4, 13, 48, 186, 712, 2717, 10432, 40222, 155384, 601426, 2332640, 9063380, 35269392, 137438685, 536257280, 2094786870, 8191506136, 32063203590, 125613386912, 492516592620, 1932569186288, 7588478653938, 29816630378368, 117226929901676, 461151757861552

Offset: 0

Gus Wiseman, Oct 12 2022

nonn

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 a(0) = 1 through a(4) = 13 compositions:
  ()  .  (1111)  (1212)  (1313)
                 (1221)  (1322)
                 (2112)  (1331)
                 (2121)  (2213)
                         (2222)
                         (2231)
                         (3113)
                         (3122)
                         (3131)
                         (111311)
                         (112211)
                         (113111)
                         (11111111)

David A. Corneth, Table of n, a(n) for n = 0..1665

The skew-alternating version appears to be A000984.
For original alternating sum we have A001700/A088218.
The version for partitions of any length is A357639, ranked by A357631.
For length multiple of 4 we have A110145.
These compositions of any length are ranked by A357625, reverse A357626.
A124754 gives alternating sum of standard compositions, reverse A344618.
A357621 = half-alternating sum of standard compositions, reverse A357622.
A357637 counts partitions by half-alternating sum, skew A357638.
Cf. A000583, A001511, A035363, A053251, A344619, A357136, A357182, A357627, A357628, A357629, A357633.

Table[Length[Select[Join @@ Permutations/@IntegerPartitions[2n],EvenQ[Length[#]]&&halfats[#]==0&]],{n,0,9}]

a(n) = {my(v, res); if(n < 3, return(1 - bitand(n,1))); res = 0; v = vector(2*n, i, binomial(n-1,i-1)); forstep(i = 4, 2*n, 2, lp = i\4 * 2; rp = i - lp; res += v[lp] * v[rp]; ); res } \\ David A. Corneth, Oct 13 2022

More terms from Alois P. Heinz, Oct 12 2022

A357630 Skew-alternating sum of the prime indices of n.

Original entry on oeis.org

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

Offset: 1

Gus Wiseman, Oct 09 2022

sign

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.

			The prime indices of 525 are {2,3,3,4} so a(525) = 2 - 3 - 3 + 4 = 0.

The original alternating sum is A316524, reverse A344616.
The reverse version is A357634.
The half-alternating form is A357629, reverse A357633.
Positions of zeros are A357632, reverse A357636.
The version for standard compositions is A357623, reverse A357624.
These partitions are counted by A357638, half A357637.
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.
Cf. A003963, A053251, A055932, A357189, A357485-A357488, A357621, A357622, A357625, A357626, A357635, A357640.

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]}];
Table[skats[primeMS[n]],{n,30}]

A357634 Skew-alternating sum of the partition having Heinz number n.

Original entry on oeis.org

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

Offset: 1

Gus Wiseman, Oct 09 2022

sign

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.

			The partition with Heinz number 525 is (4,3,3,2) so a(525) = 4 - 3 - 3 + 2 = 0.

The original alternating sum is A316524, reverse A344616.
The non-reverse version is A357630.
The half-alternating form is A357633, non-reverse A357629.
Positions of zeros are A357636, non-reverse A357632.
The version for standard compositions is A357624, non-reverse A357623.
These partitions are counted by A357638, half A357637.
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.
Cf. A003963, A053251, A055932, A357189, A357485-A357488, A357621, A357622, A357625, A357626, A357635, A357640.

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]}];
Table[skats[Reverse[primeMS[n]]],{n,30}]

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

Gus Wiseman, Oct 09 2022

nonn

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.

			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}

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.
Cf. A003963, A053251, A055932, A357189, A357485-A357488, A357621-A357626, A357629, A357637, A357638.

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

cp's OEIS Frontend

A357641 Number of integer compositions of 2n whose half-alternating sum is 0.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Maple

Mathematica

Extensions

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

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

Formula

A357623 Skew-alternating sum of the n-th composition in standard order.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

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

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

Python

A357629 Half-alternating sum of the prime indices of n.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

A357631 Numbers k such that the half-alternating sum of the prime indices of k is 0.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Maple

Mathematica

A357642 Number of even-length integer compositions of 2n whose half-alternating sum is 0.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

PARI

Extensions

A357630 Skew-alternating sum of the prime indices of n.

Views

Author