A346698 -id:A346698 - cp's OEIS frontend

A346701 Heinz number of the odd bisection (odd-indexed parts) of the integer partition with Heinz number n.

1, 2, 3, 2, 5, 3, 7, 4, 3, 5, 11, 6, 13, 7, 5, 4, 17, 6, 19, 10, 7, 11, 23, 6, 5, 13, 9, 14, 29, 10, 31, 8, 11, 17, 7, 6, 37, 19, 13, 10, 41, 14, 43, 22, 15, 23, 47, 12, 7, 10, 17, 26, 53, 9, 11, 14, 19, 29, 59, 10, 61, 31, 21, 8, 13, 22, 67, 34, 23, 14, 71

Offset: 1

Gus Wiseman, Aug 03 2021

nonn

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 (2,2,2,1,1) has Heinz number 108 and odd bisection (2,2,1) with Heinz number 18, so a(108) = 18.
The partitions (3,2,2,1,1), (3,2,2,2,1), (3,3,2,1,1) have Heinz numbers 180, 270, 300 and all have odd bisection (3,2,1) with Heinz number 30, so a(180) = a(270) = a(300) = 30.

Positions of last appearances are A000290 without the first term 0.
Positions of primes are A037143 (complement: A033942).
The even version is A329888.
Positions of first appearances are A342768.
The sum of prime indices of a(n) is A346699(n), non-reverse: A346697.
The non-reverse version is A346703.
The even non-reverse version is A346704.
A001221 counts distinct prime factors.
A001222 counts all prime factors.
A056239 adds up prime indices, row sums of A112798.
A103919 counts partitions by sum and alternating sum, reverse A344612.
A209281 (shifted) adds up the odd bisection of standard compositions.
A316524 gives the alternating sum of prime indices, reverse A344616.
A325534 counts separable partitions, ranked by A335433.
A325535 counts inseparable partitions, ranked by A335448.
A344606 counts alternating permutations of prime indices.
A344617 gives the sign of the alternating sum of prime indices.
A346700 gives the sum of the even bisection of reversed prime indices.
Cf. A025047, A027187, A027193, A053738, A106356, A277103, A341446, A344653, A345957, A345958, A345959, A346698, A346702.

primeMS[n_]:=If[n==1,{},Flatten[Cases[FactorInteger[n],{p_,k_}:>Table[PrimePi[p],{k}]]]];
Table[Times@@Prime/@First/@Partition[Append[Reverse[primeMS[n]],0],2],{n,100}]

a(n) * A329888(n) = n.

A056239(a(n)) = A346699(n).

A366749 Self-signed alternating sum of the prime indices of n.

Original entry on oeis.org

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

Offset: 1

Gus Wiseman, Oct 23 2023

sign

We define the self-signed alternating sum of a multiset y to be Sum_{k in y} k*(-1)^k.

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.

With summands of 2^(n-1) we get A048675.
With summands of (-1)^k we get A195017.
The version for alternating prime indices is A346697 - A346698 = A316524.
Positions of zeros are A366748, counted by A239261.
A112798 lists prime indices, length A001222, sum A056239, reverse A296150.
A300061 lists numbers with even sum of prime indices, odd A300063.
A366528 adds up odd prime indices, counted by A113685.
A366531 adds up even prime indices, counted by A113686.
Cf. A000720, A019507, A045931, A055396, A061395, A325698, A325700, A366533.

prix[n_]:=If[n==1,{},Flatten[Cases[FactorInteger[n],{p_,k_}:>Table[PrimePi[p],{k}]]]];
asum[y_]:=Sum[x*(-1)^x,{x,y}];
Table[asum[prix[n]],{n,100}]

a(n) = Sum_{k in A112798(n)} k*(-1)^k.

a(n) = A366531(n) - A366528(n).

A342768 a(n) = A342767(n, n).

Original entry on oeis.org

1, 2, 3, 8, 5, 12, 7, 32, 27, 20, 11, 48, 13, 28, 45, 128, 17, 108, 19, 80, 63, 44, 23, 192, 125, 52, 243, 112, 29, 180, 31, 512, 99, 68, 175, 432, 37, 76, 117, 320, 41, 252, 43, 176, 405, 92, 47, 768, 343, 500, 153, 208, 53, 972, 275, 448, 171, 116, 59, 720

Offset: 1

Rémy Sigrist, Apr 02 2021

nonn

This sequence has similarities with A087019.

These are the positions of first appearances of each positive integer in A346701, and also in A346703. - Gus Wiseman, Aug 09 2021

			For n = 42:
- 42 = 2 * 3 * 7, so:
          2 3 7
        x 2 3 7
        -------
          2 3 7
        2 3 3
    + 2 2 2
    -----------
      2 2 3 3 7
- hence a(42) = 2 * 2 * 3 * 3 * 7 = 252.

Rémy Sigrist, Table of n, a(n) for n = 1..10000
Rémy Sigrist, PARI program for A342768
Index entries for sequences related to dismal (or lunar) arithmetic

Cf. A007947, A087019, A342767.
The sum of prime indices of a(n) is 2*A056239(n) - A061395(n).
The version for even indices is A129597(n) = 2*a(n) for n > 1.
The sorted version is A346635.
These are the positions of first appearances in A346701 and in A346703.
A001221 counts distinct prime factors.
A001222 counts prime factors with multiplicity.
A027193 counts partitions of odd length, ranked by A026424.
A209281 adds up the odd bisection of standard compositions (even: A346633).
A346697 adds up the odd bisection of prime indices (reverse: A346699).
Cf. A000290, A006530, A033942, A037143, A344653, A345957, A346698, A346700, A346704.

Table[n^2/FactorInteger[n][[-1,1]],{n,100}] (* Gus Wiseman, Aug 09 2021 *)

PARI
```
See Links section.
```

a(n) = n iff n = 1 or n is a prime number.
a(p^k) = p^(2*k-1) for any k > 0 and any prime number p.
A007947(a(n)) = A007947(n).
A001222(a(n)) = 2*A001222(n) - 1 for any n > 1.
From Gus Wiseman, Aug 09 2021: (Start)
A001221(a(n)) = A001221(n).
If g = A006530(n) is the greatest prime factor of n, then a(n) = n^2/g.
a(n) = A129597(n)/2.
(End)

A346635 Numbers whose division (or multiplication) by their greatest prime factor yields a perfect square. Numbers k such that k*A006530(k) is a perfect square.

Original entry on oeis.org

1, 2, 3, 5, 7, 8, 11, 12, 13, 17, 19, 20, 23, 27, 28, 29, 31, 32, 37, 41, 43, 44, 45, 47, 48, 52, 53, 59, 61, 63, 67, 68, 71, 73, 76, 79, 80, 83, 89, 92, 97, 99, 101, 103, 107, 108, 109, 112, 113, 116, 117, 124, 125, 127, 128, 131, 137, 139, 148, 149, 151, 153

Offset: 1

Gus Wiseman, Aug 10 2021

nonn

This is the sorted version of A342768(n) = position of first appearance of n in A346701 (but A346703 works also).

			The terms together with their prime indices begin:
     1: {}          31: {11}            71: {20}
     2: {1}         32: {1,1,1,1,1}     73: {21}
     3: {2}         37: {12}            76: {1,1,8}
     5: {3}         41: {13}            79: {22}
     7: {4}         43: {14}            80: {1,1,1,1,3}
     8: {1,1,1}     44: {1,1,5}         83: {23}
    11: {5}         45: {2,2,3}         89: {24}
    12: {1,1,2}     47: {15}            92: {1,1,9}
    13: {6}         48: {1,1,1,1,2}     97: {25}
    17: {7}         52: {1,1,6}         99: {2,2,5}
    19: {8}         53: {16}           101: {26}
    20: {1,1,3}     59: {17}           103: {27}
    23: {9}         61: {18}           107: {28}
    27: {2,2,2}     63: {2,2,4}        108: {1,1,2,2,2}
    28: {1,1,4}     67: {19}           109: {29}
    29: {10}        68: {1,1,7}        112: {1,1,1,1,4}

Removing 1 gives a subset of A026424.
The unsorted even version is A129597.
The unsorted version is A342768(n) = A342767(n,n).
Except the first term, the even version is 2*a(n).
A000290 lists squares.
A001221 counts distinct prime factors.
A001222 counts all prime factors.
A006530 gives the greatest prime factor.
A061395 gives the greatest prime index.
A027193 counts partitions of odd length.
A056239 adds up prime indices, row sums of A112798.
A209281 = odd bisection sum of standard compositions (even: A346633).
A316524 = alternating sum of prime indices (sign: A344617, rev.: A344616).
A325534 counts separable partitions, ranked by A335433.
A325535 counts inseparable partitions, ranked by A335448.
A344606 counts alternating permutations of prime indices.
A346697 = odd bisection sum of prime indices (weights of A346703).
A346699 = odd bisection sum of reversed prime indices (weights of A346701).
Cf. A028260, A033942, A035363, A037143, A341446, A344653, A345957, A345958, A345959, A346698, A346700, A346704.

filter:= proc(n) issqr(n/max(numtheory:-factorset(n))) end proc:
filter(1):= true:
select(filter, [$1..200]); # Robert Israel, Nov 26 2022

sqrQ[n_]:=IntegerQ[Sqrt[n]];
Select[Range[100],sqrQ[#*FactorInteger[#][[-1,1]]]&]

isok(m) = (m==1) || issquare(m/vecmax(factor(m)[,1])); \\ Michel Marcus, Aug 12 2021

a(n) = A129597(n)/2 for n > 1.

A349159 Numbers whose sum of prime indices is twice their alternating sum.

Original entry on oeis.org

1, 12, 63, 66, 112, 190, 255, 325, 408, 434, 468, 609, 805, 832, 931, 946, 1160, 1242, 1353, 1380, 1534, 1539, 1900, 2035, 2067, 2208, 2296, 2387, 2414, 2736, 3055, 3108, 3154, 3330, 3417, 3509, 3913, 4185, 4340, 4503, 4646, 4650, 4664, 4864, 5185, 5684, 5863

Offset: 1

Gus Wiseman, Nov 23 2021

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 alternating sum of a sequence (y_1,...,y_k) is Sum_i (-1)^(i-1) y_i.
The Heinz number of a partition (y_1,...,y_k) is prime(y_1)*...*prime(y_k), so these are also Heinz numbers of partitions whose sum is twice their alternating sum.

			The terms and their prime indices begin:
     1: ()
    12: (2,1,1)
    63: (4,2,2)
    66: (5,2,1)
   112: (4,1,1,1,1)
   190: (8,3,1)
   255: (7,3,2)
   325: (6,3,3)
   408: (7,2,1,1,1)
   434: (11,4,1)
   468: (6,2,2,1,1)
   609: (10,4,2)
   805: (9,4,3)
   832: (6,1,1,1,1,1,1)
   931: (8,4,4)
   946: (14,5,1)
  1160: (10,3,1,1,1)

These partitions are counted by A000712 up to 0's.
An ordered version is A348614, negative A349154.
The negative version is A348617.
The reverse version is A349160, counted by A006330 up to 0's.
A025047 counts alternating or wiggly compositions, complement A345192.
A027193 counts partitions with rev-alt sum > 0, ranked by A026424.
A034871, A097805, and A345197 count compositions by alternating sum.
A035363 = partitions with alt sum 0, ranked by A066207, complement A086543.
A056239 adds up prime indices, row sums of A112798, row lengths A001222.
A103919 counts partitions by alternating sum, reverse A344612.
A116406 counts compositions with alternating sum >= 0, ranked by A345913.
A138364 counts compositions with alternating sum 0, ranked by A344619.
A325534 counts separable partitions, ranked by A335433.
A325535 counts inseparable partitions, ranked by A335448.
A344607 counts partitions with rev-alt sum >= 0, ranked by A344609.
A346697 adds up odd-indexed prime indices.
A346698 adds up even-indexed prime indices.
Cf. A000070, A000290, A001700, A028260, A045931, A120452, A195017, A241638, A257991, A257992, A325698, A345958, A349155.

primeMS[n_]:=If[n==1,{},Flatten[Cases[FactorInteger[n],{p_,k_}:>Table[PrimePi[p],{k}]]]];
ats[y_]:=Sum[(-1)^(i-1)*y[[i]],{i,Length[y]}];
Select[Range[1000],Total[primeMS[#]]==2*ats[primeMS[#]]&]

A056239(a(n)) = 2*A316524(a(n)).

A346697(a(n)) = 3*A346698(a(n)).

A349160 Numbers whose sum of prime indices is twice their reverse-alternating sum.

Original entry on oeis.org

1, 10, 12, 39, 63, 66, 88, 112, 115, 190, 228, 255, 259, 306, 325, 408, 434, 468, 517, 544, 609, 620, 783, 793, 805, 832, 870, 931, 946, 1150, 1160, 1204, 1241, 1242, 1353, 1380, 1392, 1534, 1539, 1656, 1691, 1722, 1845, 1900, 2035, 2067, 2208, 2296, 2369

Offset: 1

Gus Wiseman, Nov 25 2021

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 reverse-alternating sum of a sequence (y_1,...,y_k) is Sum_i (-1)^(k-i) y_i.
The Heinz number of a partition (y_1,...,y_k) is prime(y_1)*...*prime(y_k), so these are also Heinz numbers of partitions whose sum is twice their reverse-alternating sum.

			The terms and their prime indices begin:
     1: ()
    10: (3,1)
    12: (2,1,1)
    39: (6,2)
    63: (4,2,2)
    66: (5,2,1)
    88: (5,1,1,1)
   112: (4,1,1,1,1)
   115: (9,3)
   190: (8,3,1)
   228: (8,2,1,1)
   255: (7,3,2)
   259: (12,4)
   306: (7,2,2,1)
   325: (6,3,3)
   408: (7,2,1,1,1)
   434: (11,4,1)
   468: (6,2,2,1,1)

These partitions are counted by A006330 up to 0's.
The negative reverse version is A348617.
An ordered version is A349153, non-reverse A348614.
The non-reverse version is A349159.
A027193 counts partitions with rev-alt sum > 0, ranked by A026424.
A034871, A097805, A345197 count compositions by alternating sum.
A056239 adds up prime indices, row sums of A112798, row lengths A001222.
A103919 counts partitions by alternating sum, reverse A344612.
A325534 counts separable partitions, ranked by A335433.
A325535 counts inseparable partitions, ranked by A335448.
A346697 adds up odd-indexed prime indices.
A346698 adds up even-indexed prime indices.
Cf. A000984, A001700, A028260, A066207, A120452, A195017, A257991, A257992, A344607, A344609, A345958, A349155.

primeMS[n_]:=If[n==1,{},Flatten[Cases[FactorInteger[n],{p_,k_}:>Table[PrimePi[p],{k}]]]];
sats[y_]:=Sum[(-1)^(i-Length[y])*y[[i]],{i,Length[y]}];
Select[Range[1000],Total[primeMS[#]]==2*sats[primeMS[#]]&]

A056239(a(n)) = 2*A344616(a(n)).

A346700(a(n)) = 3*A346699(a(n)).

A129597 Central diagonal of array A129595.

Original entry on oeis.org

1, 4, 6, 16, 10, 24, 14, 64, 54, 40, 22, 96, 26, 56, 90, 256, 34, 216, 38, 160, 126, 88, 46, 384, 250, 104, 486, 224, 58, 360, 62, 1024, 198, 136, 350, 864, 74, 152, 234, 640, 82, 504, 86, 352, 810, 184, 94, 1536, 686, 1000, 306, 416, 106, 1944, 550, 896, 342

Offset: 1

Antti Karttunen, May 01 2007, based on Marc LeBrun's Jan 11 2006 message on SeqFan mailing list

nonn

These are the positions of first appearances of each positive integer in A346704. - Gus Wiseman, Oct 16 2021

Antti Karttunen, Table of n, a(n) for n = 1..10000

a(n) = A129595(n,n).
The sum of prime indices of a(n) is 2*A056239(n) - A061395(n) + 1 for n > 1.
The version for odd indices is A342768(n) = a(n)/2 for n > 1.
Except the first term, the sorted version is 2*A346635.
These are the positions of first appearances in A346704.
A001221 counts distinct prime factors.
A001222 counts prime factors with multiplicity.
A027187 counts partitions of even length, ranked by A028260.
A346633 adds up the even bisection of standard compositions (odd: A209281).
A346698 adds up the even bisection of prime indices (reverse: A346699).
Cf. A000290, A006530, A037143, A329888, A344606, A345957, A346697, A346700, A346701.

Table[If[n==1,1,2*n^2/FactorInteger[n][[-1,1]]],{n,100}] (* Gus Wiseman, Aug 10 2021 *)

A129597(n) = if(1==n, n, my(f=factor(n)); (2*n*n)/f[#f~, 1]); \\ Antti Karttunen, Oct 16 2021

From Gus Wiseman, Aug 10 2021: (Start)
For n > 1, A001221(a(n)) = A099812(n).
If g = A006530(n) is the greatest prime factor of n > 1, then a(n) = 2n^2/g.
a(n) = A100484(A000720(n)) = 2n iff n is prime.
a(n > 1) = 2*A342768(n).
(End)

A348617 Numbers whose sum of prime indices is twice their negated alternating sum.

Original entry on oeis.org

1, 10, 39, 88, 115, 228, 259, 306, 517, 544, 620, 783, 793, 870, 1150, 1204, 1241, 1392, 1656, 1691, 1722, 1845, 2369, 2590, 2596, 2775, 2944, 3038, 3277, 3280, 3339, 3498, 3692, 3996, 4247, 4440, 4935, 5022, 5170, 5226, 5587, 5644, 5875, 5936, 6200, 6321

Offset: 1

Gus Wiseman, Nov 26 2021

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 alternating sum of a sequence (y_1,...,y_k) is Sum_i (-1)^(i-1) y_i.
The Heinz number of a partition (y_1,...,y_k) is prime(y_1)*...*prime(y_k), so these are also Heinz numbers of partitions whose sum is twice their negated alternating sum.

			The terms and their prime indices begin:
     1: ()
    10: (3,1)
    39: (6,2)
    88: (5,1,1,1)
   115: (9,3)
   228: (8,2,1,1)
   259: (12,4)
   306: (7,2,2,1)
   517: (15,5)
   544: (7,1,1,1,1,1)
   620: (11,3,1,1)
   783: (10,2,2,2)
   793: (18,6)
   870: (10,3,2,1)
  1150: (9,3,3,1)
  1204: (14,4,1,1)
  1241: (21,7)
  1392: (10,2,1,1,1,1)
  1656: (9,2,2,1,1,1)
  1691: (24,8)

These partitions are counted by A001523 up to 0's.
An ordered version is A349154, nonnegative A348614, reverse A349155.
The nonnegative version is A349159, counted by A000712 up to 0's.
The reverse nonnegative version is A349160, counted by A006330 up to 0's.
A027193 counts partitions with rev-alt sum > 0, ranked by A026424.
A034871, A097805, A345197 count compositions by alternating sum.
A035363 = partitions with alt sum 0, ranked by A066207, complement A086543.
A056239 adds up prime indices, row sums of A112798, row lengths A001222.
A103919 counts partitions by alternating sum, reverse A344612.
A344607 counts partitions with rev-alt sum >= 0, ranked by A344609.
A346697 adds up odd-indexed prime indices.
A346698 adds up even-indexed prime indices.
Cf. A000984, A001700, A028260, A045931, A120452, A195017, A257991, A257992, A262977, A325698, A344619, A345958.

primeMS[n_]:=If[n==1,{},Flatten[Cases[FactorInteger[n],{p_,k_}:>Table[PrimePi[p],{k}]]]];
ats[y_]:=Sum[(-1)^(i-1)*y[[i]],{i,Length[y]}];
Select[Range[1000],Total[primeMS[#]]==-2*ats[primeMS[#]]&]

A056239(a(n)) = -2*A316524(a(n)).

A346698(a(n)) = 3*A346697(a(n)).

A366748 Numbers k such that (sum of odd prime indices of k) = (sum of even prime indices of k).

Original entry on oeis.org

1, 12, 70, 90, 112, 144, 286, 325, 462, 520, 525, 594, 646, 675, 832, 840, 1045, 1080, 1326, 1334, 1344, 1666, 1672, 1728, 1900, 2142, 2145, 2294, 2465, 2622, 2695, 2754, 3040, 3432, 3465, 3509, 3526, 3900, 3944, 4186, 4255, 4312, 4455, 4845, 4864, 4900, 4982

Offset: 1

Gus Wiseman, Oct 23 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 terms together with their prime indices begin:
     1: {}
    12: {1,1,2}
    70: {1,3,4}
    90: {1,2,2,3}
   112: {1,1,1,1,4}
   144: {1,1,1,1,2,2}
   286: {1,5,6}
   325: {3,3,6}
   462: {1,2,4,5}
   520: {1,1,1,3,6}
   525: {2,3,3,4}
   594: {1,2,2,2,5}
   646: {1,7,8}
   675: {2,2,2,3,3}
   832: {1,1,1,1,1,1,6}
   840: {1,1,1,2,3,4}
For example, 525 has prime indices {2,3,3,4}, and 3+3 = 2+4, so 525 is in the sequence.

For prime factors instead of indices we have A019507.
Partitions of this type are counted by A239261.
For count instead of sum we have A325698, distinct A325700.
The LHS (sum of odd prime indices) is A366528, triangle A113685.
The RHS (sum of even prime indices) is A366531, triangle A113686.
These are the positions of zeros in A366749.
A000009 counts partitions into odd parts, ranked by A066208.
A035363 counts partitions into even parts, ranked by A066207.
A112798 lists prime indices, reverse A296150, length A001222, sum A056239.
A257991 counts odd prime indices, even A257992.
A300061 lists numbers with even sum of prime indices, odd A300063.
Cf. A028260, A045931, A106529, A239241, A241638, A365067, A366533.

prix[n_]:=If[n==1,{},Flatten[Cases[FactorInteger[n], {p_,k_}:>Table[PrimePi[p],{k}]]]];
Select[Range[1000], Total[Select[prix[#],OddQ]]==Total[Select[prix[#],EvenQ]]&]

These are numbers k such that A346697(k) = A346698(k).

A346705 The a(n)-th composition in standard order is the even bisection of the n-th composition in standard order.

Original entry on oeis.org

0, 0, 0, 1, 0, 1, 2, 1, 0, 1, 2, 1, 4, 2, 1, 3, 0, 1, 2, 1, 4, 2, 1, 3, 8, 4, 2, 5, 1, 3, 6, 3, 0, 1, 2, 1, 4, 2, 1, 3, 8, 4, 2, 5, 1, 3, 6, 3, 16, 8, 4, 9, 2, 5, 10, 5, 1, 3, 6, 3, 12, 6, 3, 7, 0, 1, 2, 1, 4, 2, 1, 3, 8, 4, 2, 5, 1, 3, 6, 3, 16, 8, 4, 9, 2, 5

Offset: 0

Gus Wiseman, Aug 19 2021

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.

a(n) is the row number in A066099 of the even bisection (even-indexed terms) of the n-th row of A066099.

			Composition number 741 in standard order is (2,1,1,3,2,1), with even bisection (1,3,1), which is composition number 25 in standard order, so a(741) = 25.

Length of the a(n)-th standard composition is A000120(n)/2 rounded down.
Positions of first appearances appear to be A088698, sorted: A277335.
The version for reversed prime indices appears to be A329888, sums A346700.
Sum of the a(n)-th standard composition is A346633.
An unordered reverse version for odd bisection is A346701, sums A346699.
The version for odd bisection is A346702, sums A209281(n+1).
An unordered version for odd bisection is A346703, sums A346697.
An unordered version is A346704, sums A346698.
A011782 counts compositions.
A029837 gives length of binary expansion, or sometimes A070939.
A066099 lists compositions in standard order.
A097805 counts compositions by alternating sum.
Cf. A000302, A025047, A088218, A124754, A124767, A228351, A290258, A290259, A344618, A345197.

Table[Total[2^Accumulate[Reverse[Last/@Partition[ Differences[Prepend[Join@@Position[Reverse[IntegerDigits[n,2]],1],0]]//Reverse,2]]]]/2,{n,0,100}]

A029837(a(n)) = A346633(n).

cp's OEIS Frontend

A346701 Heinz number of the odd bisection (odd-indexed parts) of the integer partition with Heinz number n.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

Formula

A366749 Self-signed alternating sum of the prime indices of n.

Views

Author

Keywords

Comments

Crossrefs

Programs

Mathematica

Formula

A342768 a(n) = A342767(n, n).

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

PARI

Formula

A346635 Numbers whose division (or multiplication) by their greatest prime factor yields a perfect square. Numbers k such that k*A006530(k) is a perfect square.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Maple

Mathematica

PARI

Formula

A349159 Numbers whose sum of prime indices is twice their alternating sum.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

Formula

A349160 Numbers whose sum of prime indices is twice their reverse-alternating sum.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

Formula

A129597 Central diagonal of array A129595.

Views

Author

Keywords

Comments

Links

Crossrefs

Programs

Mathematica

PARI

Formula

A348617 Numbers whose sum of prime indices is twice their negated alternating sum.

Views

Author

Keywords

Comments