A359042 -id:A359042 - cp's OEIS frontend

A359402 Numbers whose binary expansion and reversed binary expansion have the same sum of positions of 1's, where positions in a sequence are read starting with 1 from the left.

0, 1, 3, 5, 7, 9, 15, 17, 21, 27, 31, 33, 45, 51, 63, 65, 70, 73, 78, 85, 93, 99, 107, 119, 127, 129, 150, 153, 165, 189, 195, 219, 231, 255, 257, 266, 273, 282, 294, 297, 310, 313, 325, 334, 341, 350, 355, 365, 371, 381, 387, 397, 403, 413, 427, 443, 455, 471

Offset: 1

Gus Wiseman, Jan 05 2023

nonn

Also numbers whose binary expansion and reversed binary expansion have the same sum of partial sums.
Also numbers whose average position of a 1 in their binary expansion is (c+1)/2, where c is the number of digits.
Conjecture: Also numbers whose binary expansion has as least squares fit a line of zero slope, counted by A222955.

			The binary expansion of 70 is (1,0,0,0,1,1,0), with positions of 1's {1,5,6}, while the reverse positions are {2,3,7}. Both sum to 12, so 70 is in the sequence.

Binary words of this type appear to be counted by A222955.
For greater instead of equal sums we have A359401.
These are the indices of 0's in A359495.
A030190 gives binary expansion, reverse A030308.
A048793 lists partial sums of reversed standard compositions, sums A029931.
A070939 counts binary digits, 1's A000120.
A326669 lists numbers with integer mean position of a 1 in binary expansion.
Cf. A051293, A053632, A231204, A291166, A304818, A318283, A326672, A326673, A358134, A359042.

Select[Range[0,100],#==0||Mean[Join@@Position[IntegerDigits[#,2],1]]==(IntegerLength[#,2]+1)/2&]

from functools import reduce
from itertools import count, islice
def A359402_gen(startvalue=0): # generator of terms
    return filter(lambda n:(r:=reduce(lambda c, d:(c[0]+d[0]*(e:=int(d[1])),c[1]+e),enumerate(bin(n)[2:],start=1),(0,0)))[0]<<1==(n.bit_length()+1)*r[1],count(max(startvalue,0)))
A359402_list = list(islice(A359402_gen(),30)) # Chai Wah Wu, Jan 08 2023

A230877(a(n)) = A029931(a(n)).

A359677 Zero-based weighted sum of the reversed (weakly decreasing) prime indices of n.

Original entry on oeis.org

0, 0, 0, 1, 0, 1, 0, 3, 2, 1, 0, 3, 0, 1, 2, 6, 0, 4, 0, 3, 2, 1, 0, 6, 3, 1, 6, 3, 0, 4, 0, 10, 2, 1, 3, 7, 0, 1, 2, 6, 0, 4, 0, 3, 6, 1, 0, 10, 4, 5, 2, 3, 0, 9, 3, 6, 2, 1, 0, 7, 0, 1, 6, 15, 3, 4, 0, 3, 2, 5, 0, 11, 0, 1, 7, 3, 4, 4, 0, 10, 12, 1, 0, 7, 3

Offset: 1

Gus Wiseman, Jan 13 2023

nonn

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 zero-based weighted sum of a sequence (y_1,...,y_k) is Sum_{i=1..k} (i-1)*y_i.

			The reversed prime indices of 12 are (2,1,1), so a(12) = 0*2 + 1*1 + 2*1 = 3.

Positions of 0's are A008578.
Positions of 1's are A100484.
The version for standard compositions is A231204, reverse of A124757.
The one-based version is A318283, unreversed A304818.
The one-based version for standard compositions is A359042, rev of A029931.
This is the reverse version of A359674.
First position of n is A359679(n), reverse of A359675.
Positions of first appearances are A359680, reverse of A359676.
A053632 counts compositions by weighted sum.
A112798 lists prime indices, length A001222, sum A056239.
A358136 lists partial sums of prime indices, ranked by A358137, rev A359361.
Cf. A001248, A055932, A243055, A359043, A358194, A359678, A359681, A359683, A359754, A359755.

primeMS[n_]:=If[n==1,{},Flatten[Cases[FactorInteger[n],{p_,k_}:>Table[PrimePi[p],{k}]]]];
wts[y_]:=Sum[(i-1)*y[[i]],{i,Length[y]}];
Table[wts[Reverse[primeMS[n]]],{n,100}]

A359495 Sum of positions of 1's in binary expansion minus sum of positions of 1's in reversed binary expansion, where positions in a sequence are read starting with 1 from the left.

Original entry on oeis.org

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

Offset: 0

Gus Wiseman, Jan 05 2023

Also the sum of partial sums of reversed binary expansion minus sum of partial sums of binary expansion.

			The binary expansion of 158 is (1,0,0,1,1,1,1,0), with positions of 1's {1,4,5,6,7} with sum 23, reversed {2,3,4,5,8} with sum 22, so a(158) = 1.

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

Indices of positive terms are A359401.
Indices of 0's are A359402.
A030190 gives binary expansion, reverse A030308.
A070939 counts binary digits.
A230877 adds up positions of 1's in binary expansion, reverse A029931.
Cf. A000120, A048793, A053632, A222955, A231204, A291166, A326669, A326672, A326673, A359042, A359043.

a:= n-> (l-> add(i*(l[-i]-l[i]), i=1..nops(l)))(Bits[Split](n)):
seq(a(n), n=0..127);  # Alois P. Heinz, Jan 09 2023

sap[q_]:=Sum[q[[i]]*(2i-Length[q]-1),{i,Length[q]}];
Table[sap[IntegerDigits[n,2]],{n,0,100}]

def A359495(n):
    k = n.bit_length()-1
    return sum((i<<1)-k for i, j in enumerate(bin(n)[2:]) if j=='1') # Chai Wah Wu, Jan 09 2023

a(n) = A029931(n) - A230877(n).

If n = Sum_{i=1..k} q_i * 2^(i-1), then a(n) = Sum_{i=1..k} q_i * (2i-k-1).

A222955 Number of nX1 0..1 arrays with every row and column least squares fitting to a zero slope straight line, with a single point array taken as having zero slope.

Original entry on oeis.org

2, 2, 4, 4, 8, 8, 20, 18, 52, 48, 152, 138, 472, 428, 1520, 1392, 5044, 4652, 17112, 15884, 59008, 55124, 206260, 193724, 729096, 688008, 2601640, 2465134, 9358944, 8899700, 33904324, 32342236, 123580884, 118215780, 452902072, 434314138, 1667837680

Offset: 1

R. H. Hardin, Mar 10 2013

nonn

Column 1 of A222959

Conjecture: A binary word is counted iff it has the same sum of positions of 1's as its reverse, or, equivalently, the same sum of partial sums as its reverse. - Gus Wiseman, Jan 07 2023

			All solutions for n=4
..0....1....1....0
..0....1....0....1
..0....1....0....1
..0....1....1....0
From _Gus Wiseman_, Jan 07 2023: (Start)
The a(1) = 2 through a(7) = 20 binary words with least squares fit a line of zero slope are:
  (0)  (00)  (000)  (0000)  (00000)  (000000)  (0000000)
  (1)  (11)  (010)  (0110)  (00100)  (001100)  (0001000)
             (101)  (1001)  (01010)  (010010)  (0010100)
             (111)  (1111)  (01110)  (011110)  (0011100)
                            (10001)  (100001)  (0100010)
                            (10101)  (101101)  (0101010)
                            (11011)  (110011)  (0110001)
                            (11111)  (111111)  (0110110)
                                               (0111001)
                                               (0111110)
                                               (1000001)
                                               (1000110)
                                               (1001001)
                                               (1001110)
                                               (1010101)
                                               (1011101)
                                               (1100011)
                                               (1101011)
                                               (1110111)
                                               (1111111)
(End)

R. H. Hardin, Table of n, a(n) for n = 1..210

These words appear to be ranked by A359402.
A011782 counts compositions.
A359042 adds up partial sums of standard compositions, reversed A029931.
Cf. A053632, A070925, A231204, A318283, A359043.

A231429 Number of partitions of 2n into distinct parts < n.

Original entry on oeis.org

1, 0, 0, 0, 0, 1, 2, 4, 8, 14, 22, 35, 53, 78, 113, 160, 222, 306, 416, 558, 743, 980, 1281, 1665, 2149, 2755, 3514, 4458, 5626, 7070, 8846, 11020, 13680, 16920, 20852, 25618, 31375, 38309, 46649, 56651, 68616, 82908, 99940, 120192, 144238, 172730, 206425

Offset: 0

Reinhard Zumkeller, Nov 14 2013

nonn

From Gus Wiseman, Jun 17 2023: (Start)
Also the number of integer compositions of n with weighted sum 3*n, where the weighted sum of a sequence (y_1,...,y_k) is Sum_{i=1..k} i * y_i. The a(0) = 1 through a(9) = 14 compositions are:
  ()  .  .  .  .  (11111)  (3111)   (3211)   (3311)    (3411)
                           (11211)  (11311)  (4121)    (4221)
                                    (12121)  (11411)   (5112)
                                    (21112)  (12221)   (11511)
                                             (13112)   (12321)
                                             (21131)   (13131)
                                             (21212)   (13212)
                                             (111122)  (21231)
                                                       (21312)
                                                       (22122)
                                                       (31113)
                                                       (111141)
                                                       (111222)
                                                       (112113)
For partitions we have A363527, ranks A363531. For reversed partitions we have A363526, ranks A363530.
(End)

			a(5) = #{4+3+2+1} = 1;
a(6) = #{5+4+3, 5+4+2+1} = 2;
a(7) = #{6+5+3, 6+5+2+1, 6+4+3+1, 5+4+3+2} = 4;
a(8) = #{7+6+3, 7+6+2+1, 7+6+3, 7+5+3+1, 7+4+3+2, 6+5+4+1, 6+5+3+2, 6+4+3+2+1} = 8;
a(9) = #{8+7+3, 8+7+2+1, 8+6+4, 8+6+3+1, 8+5+4+1, 8+5+3+2, 8+4+3+2+1, 7+6+5, 7+6+4+1, 7+6+3+2, 7+5+4+2, 7+5+3+2+1, 6+5+4+3, 6+5+4+2+1} = 14.

Cf. A209815, A079122.
A000041 counts integer partitions, strict A000009.
A053632 counts compositions by weighted sum.
A264034 counts partitions by weighted sum, reverse A358194.
A304818 gives weighted sum of prime indices, reverse A318283.
A320387 counts multisets by weighted sum, zero-based A359678.
Cf. A008284, A029931, A067538, A222855, A222955, A222970, A359042, A360672, A360675, A362559.

a231429 n = p [1..n-1] (2*n) where
   p _  0 = 1
   p [] _ = 0
   p (k:ks) m = if m < k then 0 else p ks (m - k) + p ks m

Table[Length[Select[Join@@Permutations/@IntegerPartitions[n], Total[Accumulate[#]]==3n&]],{n,0,15}] (* Gus Wiseman, Jun 17 2023 *)

A358170 Heinz number of the partial sums of the n-th composition in standard order (A066099).

Original entry on oeis.org

1, 2, 3, 6, 5, 15, 10, 30, 7, 35, 21, 105, 14, 70, 42, 210, 11, 77, 55, 385, 33, 231, 165, 1155, 22, 154, 110, 770, 66, 462, 330, 2310, 13, 143, 91, 1001, 65, 715, 455, 5005, 39, 429, 273, 3003, 195, 2145, 1365, 15015, 26, 286, 182, 2002, 130, 1430, 910, 10010

Offset: 0

Gus Wiseman, Dec 20 2022

nonn

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 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 terms together with their prime indices begin:
           1: {}
           2: {1}
           3: {2}
           6: {1,2}
           5: {3}
          15: {2,3}
          10: {1,3}
          30: {1,2,3}
           7: {4}
          35: {3,4}
          21: {2,4}
         105: {2,3,4}
          14: {1,4}
          70: {1,3,4}
          42: {1,2,4}
         210: {1,2,3,4}

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

See link for sequences related to standard compositions.
Applying A001221 or A001222 gives A000120.
The image is A005117 (squarefree numbers).
The reverse version is A019565, triangular version A048793.
Greatest prime index of a(n) is A029837 or A070939.
Least prime index of a(n) is A065120.
The adjusted version is A253565, inverse A253566, reverse A005940.
These are the Heinz numbers of the rows of A358134.
Sum of prime indices of a(n) is A359042.
A066099 lists standard compositions.
A112798 list prime indices, sum A056239.
Cf. A000720, A001511, A029931, A059893, A061395, A241916, A242628, A355536, A358133, A358135, A358137.

stc[n_]:=Differences[Prepend[Join @@ Position[Reverse[IntegerDigits[n,2]],1],0]]//Reverse;
Times@@Prime/@#&/@Table[Accumulate[stc[n]],{n,0,100}]

A363526 Number of integer partitions of n with reverse-weighted sum 3*n.

Original entry on oeis.org

1, 0, 0, 0, 0, 1, 1, 1, 1, 1, 2, 1, 2, 2, 2, 4, 3, 2, 4, 4, 4, 5, 5, 4, 7, 7, 5, 8, 7, 6, 11, 9, 8, 11, 10, 10, 13, 12, 11, 15, 15, 12, 17, 16, 14, 20, 18, 16, 22, 20, 19, 24, 22, 20, 27, 26, 23, 29, 27, 25, 33, 30, 28, 35, 33, 31, 38, 36, 33, 41, 40

Offset: 0

Gus Wiseman, Jun 10 2023

nonn

Are the partitions counted all of length 4 or 5?

The (one-based) weighted sum of a sequence (y_1,...,y_k) is Sum_{i=1..k} i*y_i. The reverse-weighted sum is the weighted sum of the reverse, also the sum of partial sums. For example, the weighted sum of (4,2,2,1) is 1*4 + 2*2 + 3*2 + 4*1 = 18 and the reverse-weighted sum is 4*4 + 3*2 + 2*2 + 1*1 = 27.

			The partition (6,4,4,1) has sum 15 and reverse-weighted sum 45 so is counted under a(15).
The a(n) partitions for n = {5, 10, 15, 16, 21, 24}:
  (1,1,1,1,1)  (4,3,2,1)    (6,4,4,1)    (6,5,4,1)  (8,6,6,1)   (9,7,7,1)
               (2,2,2,2,2)  (6,5,2,2)    (6,6,2,2)  (8,7,4,2)   (9,8,5,2)
                            (7,3,3,2)    (7,4,3,2)  (9,5,5,2)   (9,9,3,3)
                            (3,3,3,3,3)             (9,6,3,3)   (10,6,6,2)
                                                    (10,4,4,3)  (10,7,4,3)
                                                                (11,5,5,3)
                                                                (12,4,4,4)

Positions of terms with omega > 4 appear to be A079998.
The version for compositions is A231429.
The non-reverse version is A363527.
These partitions have ranks A363530, reverse A363531.
A000041 counts integer partitions, strict A000009.
A053632 counts compositions by weighted sum, rank statistic A029931/A359042.
A264034 counts partitions by weighted sum, reverse A358194.
A304818 gives weighted sum of prime indices, row-sums of A359361.
A318283 gives weighted sum of reversed prime indices, row-sums of A358136.
A320387 counts multisets by weighted sum, zero-based A359678.
Cf. A000016, A008284, A067538, A222855, A222970, A359755, A360672, A360675, A362559, A362560, A363525, A363528.

Table[Length[Select[IntegerPartitions[n],Total[Accumulate[#]]==3n&]],{n,0,30}]

A363527 Number of integer partitions of n with weighted sum 3*n.

Original entry on oeis.org

1, 0, 0, 0, 0, 1, 0, 0, 1, 1, 1, 1, 1, 1, 3, 4, 4, 6, 8, 7, 10, 13, 13, 21, 25, 24, 37, 39, 40, 58, 63, 72, 94, 106, 118, 144, 165, 181, 224, 256, 277, 341, 387, 417, 504, 560, 615, 743, 818, 899, 1066, 1171, 1285, 1502, 1655, 1819, 2108, 2315, 2547, 2915

Offset: 0

Gus Wiseman, Jun 11 2023

nonn

Are the partitions counted all of length > 4?

The (one-based) weighted sum of a sequence (y_1,...,y_k) is Sum_{i=1..k} i*y_i. The reverse-weighted sum is the weighted sum of the reverse, also the sum of partial sums. For example, the weighted sum of (4,2,2,1) is 1*4 + 2*2 + 3*2 + 4*1 = 18 and the reverse-weighted sum is 4*4 + 3*2 + 2*2 + 1*1 = 27.

			The partition (2,2,1,1,1,1) has sum 8 and weighted sum 24 so is counted under a(8).
The a(13) = 1 through a(18) = 8 partitions:
  (332221)  (333221)    (33333)     (442222)    (443222)    (443331)
            (4322111)   (522222)    (5322211)   (4433111)   (444222)
            (71111111)  (4332111)   (55111111)  (5332211)   (533322)
                        (63111111)  (63211111)  (55211111)  (4443111)
                                                (63311111)  (7222221)
                                                (72221111)  (55311111)
                                                            (64221111)
                                                            (A11111111)

The version for compositions is A231429.
The reverse version is A363526.
These partitions have ranks A363531.
A000041 counts integer partitions, strict A000009.
A053632 counts compositions by weighted sum, rank statistic A029931/A359042.
A264034 counts partitions by weighted sum, reverse A358194.
A304818 gives weighted sum of prime indices, row-sums of A359361.
A318283 gives weighted sum of reversed prime indices, row-sums of A358136.
A320387 counts multisets by weighted sum, zero-based A359678.
Cf. A000016, A008284, A067538, A222855, A222970, A359755, A360672, A360675, A362559, A362560, A363525, A363528, A363532.

Table[Length[Select[IntegerPartitions[n],Total[Accumulate[Reverse[#]]]==3n&]],{n,0,30}]

A363525 Number of integer partitions of n with weighted sum divisible by reverse-weighted sum.

Original entry on oeis.org

1, 2, 2, 3, 2, 4, 2, 4, 5, 5, 3, 10, 4, 7, 13, 10, 8, 29, 10, 18, 39, 20, 20, 70, 29, 40, 105, 65, 55, 166, 73, 132, 242, 141, 129, 476, 183, 248, 580, 487, 312, 984, 422, 868, 1345, 825, 724, 2709, 949, 1505, 2756, 2902, 1611, 4664, 2289, 4942, 5828, 4278

Offset: 1

Gus Wiseman, Jun 10 2023

nonn

The (one-based) weighted sum of a sequence (y_1,...,y_k) is Sum_{i=1..k} i*y_i. This is also the sum of partial sums of the reverse.

			The partition (6,5,4,3,2,1,1,1,1) has weighted sum 80, reverse 160, so is counted under a(24).
The a(n) partitions for n = 1, 2, 4, 6, 9, 12, 14 (A..E = 10-14):
  1  2   4     6       9          C             E
     11  22    33      333        66            77
         1111  222     711        444           65111
               111111  6111       921           73211
                       111111111  3333          2222222
                                  7311          71111111
                                  63111         11111111111111
                                  222222
                                  621111
                                  111111111111

The case of equality (and reciprocal version) is A000005.
The strict case is A363528.
A000041 counts integer partitions, strict A000009.
A053632 counts compositions by weighted sum, rank statistic A029931/A359042.
A264034 counts partitions by weighted sum, reverse A358194.
A304818 gives weighted sum of prime indices, row-sums of A359361.
A318283 gives weighted sum of reversed prime indices, row-sums of A358136.
A320387 counts multisets by weighted sum, zero-based A359678.
A363526 = partitions with weighted sum 3n, ranks A363530, reverse A363531.
Cf. A000016, A008284, A067538, A222855, A222970, A358137, A359755, A362558, A362559, A362560, A363527.

Table[Length[Select[IntegerPartitions[n], Divisible[Total[Accumulate[#]], Total[Accumulate[Reverse[#]]]]&]],{n,30}]

cp's OEIS Frontend

A359402 Numbers whose binary expansion and reversed binary expansion have the same sum of positions of 1's, where positions in a sequence are read starting with 1 from the left.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

Python

Formula

A359677 Zero-based weighted sum of the reversed (weakly decreasing) prime indices of n.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

A359495 Sum of positions of 1's in binary expansion minus sum of positions of 1's in reversed binary expansion, where positions in a sequence are read starting with 1 from the left.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Maple

Mathematica

Python

Formula

A222955 Number of nX1 0..1 arrays with every row and column least squares fitting to a zero slope straight line, with a single point array taken as having zero slope.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

A231429 Number of partitions of 2n into distinct parts < n.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Haskell

Mathematica

A358170 Heinz number of the partial sums of the n-th composition in standard order (A066099).

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

A363526 Number of integer partitions of n with reverse-weighted sum 3*n.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

A363527 Number of integer partitions of n with weighted sum 3*n.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica