A325770 -id:A325770 - cp's OEIS frontend

A325779 Heinz numbers of integer partitions for which every restriction to a subinterval has a different sum.

1, 2, 3, 5, 6, 7, 10, 11, 13, 14, 15, 17, 19, 21, 22, 23, 26, 29, 31, 33, 34, 35, 37, 38, 39, 41, 42, 43, 46, 47, 51, 53, 55, 57, 58, 59, 61, 62, 65, 66, 67, 69, 71, 73, 74, 77, 78, 79, 82, 83, 85, 86, 87, 89, 91, 93, 94, 95, 97, 101, 102, 103, 105, 106, 107

Offset: 1

Gus Wiseman, May 20 2019

nonn

First differs from A301899 in having 462.

The enumeration of these partitions by sum is given by A325768.

			Most small numbers are in the sequence. However, the sequence of non-terms together with their prime indices begins:
    4: {1,1}
    8: {1,1,1}
    9: {2,2}
   12: {1,1,2}
   16: {1,1,1,1}
   18: {1,2,2}
   20: {1,1,3}
   24: {1,1,1,2}
   25: {3,3}
   27: {2,2,2}
   28: {1,1,4}
   30: {1,2,3}
   32: {1,1,1,1,1}
   36: {1,1,2,2}
   40: {1,1,1,3}
   44: {1,1,5}
   45: {2,2,3}
   48: {1,1,1,1,2}
   49: {4,4}
   50: {1,3,3}

A subsequence of A005117.

Cf. A000041, A002033, A056239, A103300, A112798, A143823, A169942, A299702, A301899, A325676, A325768, A325769, A325770, A325778.

primeMS[n_]:=If[n==1,{},Flatten[Cases[FactorInteger[n],{p_,k_}:>Table[PrimePi[p],{k}]]]];
Select[Range[100],UnsameQ@@ReplaceList[primeMS[#],{_,s__,_}:>Plus[s]]&]

A347708 Number of distinct possible alternating products of odd-length factorizations of n.

Original entry on oeis.org

0, 1, 1, 1, 1, 1, 1, 2, 1, 1, 1, 2, 1, 1, 1, 2, 1, 2, 1, 2, 1, 1, 1, 3, 1, 1, 2, 2, 1, 2, 1, 3, 1, 1, 1, 3, 1, 1, 1, 3, 1, 2, 1, 2, 2, 1, 1, 4, 1, 2, 1, 2, 1, 2, 1, 3, 1, 1, 1, 5, 1, 1, 2, 3, 1, 2, 1, 2, 1, 2, 1, 5, 1, 1, 2, 2, 1, 2, 1, 4, 2, 1, 1, 5, 1, 1, 1, 3, 1, 3, 1, 2, 1, 1, 1, 5, 1, 2, 2, 3, 1, 2, 1, 3, 2

Offset: 1

Gus Wiseman, Oct 11 2021

nonn

We define the alternating product of a sequence (y_1,...,y_k) to be Product_i y_i^((-1)^(i-1)).
A factorization of n is a weakly increasing sequence of positive integers > 1 with product n.
Note that it is sufficient to look at only length-1 and length-3 factorizations; cf. A347709.

			Representative factorizations for each of the a(180) = 7 alternating products:
  (2*2*3*3*5) -> 5
     (2*2*45) -> 45
     (2*3*30) -> 20
     (2*5*18) -> 36/5
     (2*9*10) -> 20/9
     (3*4*15) -> 45/4
        (180) -> 180

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

The version for partitions is A028310, reverse A347707.
Positions of 1's appear to be A037143 \ {1}.
The even-length version for n > 1 is A072670, strict A211159.
Counting only integers appears to give A293234, with evens A046951.
This is the odd-length case of A347460, reverse A038548.
The any-length version for partitions is A347461, reverse A347462.
The length-3 case is A347709.
A001055 counts factorizations (strict A045778, ordered A074206).
A056239 adds up prime indices, row sums of A112798.
A276024 counts distinct positive subset-sums of partitions.
A292886 counts knapsack factorizations, by sum A293627.
A301957 counts distinct subset-products of prime indices.
A304792 counts distinct subset-sums of partitions.
A347050 = factorizations w/ an alternating permutation, complement A347706.
A347441 counts odd-length factorizations with integer alternating product.
Cf. A002033, A103919, A108917, A119620, A325770, A339846, A339890, A347437, A347438, A347439, A347440, A347442, A347456.

facs[n_]:=If[n<=1,{{}},Join@@Table[Map[Prepend[#,d]&,Select[facs[n/d],Min@@#>=d&]],{d,Rest[Divisors[n]]}]];
altprod[q_]:=Product[q[[i]]^(-1)^(i-1),{i,Length[q]}];
Table[Length[Union[altprod/@Select[facs[n],OddQ[Length[#]]&]]],{n,100}]

altprod(facs) = prod(i=1,#facs,facs[i]^((-1)^(i-1)));
A347708aux(n, m=n, facs=List([])) = if(1==n, if((#facs)%2, altprod(facs), 0), my(newfacs, r, rats=List([])); fordiv(n, d, if((d>1)&&(d<=m), newfacs = List(facs); listput(newfacs,d); r = A347708aux(n/d, d, newfacs); if(r, rats = concat(rats,r)))); (rats));
A347708(n) = if(1==n,0,#Set(A347708aux(n))); \\ Antti Karttunen, Jan 29 2025

Conjecture: For n > 1, a(n) = 1 + A347460(n) - A038548(n) + A072670(n).

Data section extended to a(105) by Antti Karttunen, Jan 29 2025

A334967 Numbers k such that the every subsequence (not necessarily contiguous) of the k-th composition in standard order (A066099) has a different sum.

Original entry on oeis.org

0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 12, 15, 16, 17, 18, 19, 20, 21, 24, 26, 28, 31, 32, 33, 34, 35, 36, 40, 42, 48, 56, 63, 64, 65, 66, 67, 68, 69, 70, 71, 72, 73, 74, 80, 81, 84, 85, 88, 96, 98, 100, 104, 106, 112, 120, 127, 128, 129, 130, 131, 132, 133, 134

Offset: 1

Gus Wiseman, Jun 02 2020

nonn

First differs from A333223 in lacking 41.

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: ()           18: (3,2)          48: (1,5)
   1: (1)          19: (3,1,1)        56: (1,1,4)
   2: (2)          20: (2,3)          63: (1,1,1,1,1,1)
   3: (1,1)        21: (2,2,1)        64: (7)
   4: (3)          24: (1,4)          65: (6,1)
   5: (2,1)        26: (1,2,2)        66: (5,2)
   6: (1,2)        28: (1,1,3)        67: (5,1,1)
   7: (1,1,1)      31: (1,1,1,1,1)    68: (4,3)
   8: (4)          32: (6)            69: (4,2,1)
   9: (3,1)        33: (5,1)          70: (4,1,2)
  10: (2,2)        34: (4,2)          71: (4,1,1,1)
  12: (1,3)        35: (4,1,1)        72: (3,4)
  15: (1,1,1,1)    36: (3,3)          73: (3,3,1)
  16: (5)          40: (2,4)          74: (3,2,2)
  17: (4,1)        42: (2,2,2)        80: (2,5)

These compositions are counted by A334268.
Golomb rulers are counted by A169942 and ranked by A333222.
Positive subset-sums of partitions are counted by A276024 and A299701.
Knapsack partitions are counted by A108917 and ranked by A299702
Knapsack compositions are counted by A325676 and ranked by A333223.
The case of partitions is counted by A325769 and ranked by A325778.
Contiguous subsequence-sums are counted by A333224 and ranked by A333257.
Number of (not necessarily contiguous) subsequences is A334299.
Cf. A000120, A029931, A048793, A066099, A070939, A108917, A124771, A325770, A334300, A334967.

stc[n_]:=Differences[Prepend[Join@@Position[Reverse[IntegerDigits[n,2]],1],0]]//Reverse;
Select[Range[0,100],UnsameQ@@Total/@Union[Subsets[stc[#]]]&]

A325765 Number of integer partitions of n with a unique consecutive subsequence summing to every positive integer from 1 to n.

Original entry on oeis.org

1, 1, 1, 2, 1, 3, 1, 3, 2, 3, 1, 5, 1, 3, 3, 4, 1, 5, 1, 5, 3, 3, 1, 7, 2, 3, 3, 5, 1, 7, 1, 5, 3, 3, 3, 8, 1, 3, 3, 7, 1, 7, 1, 5, 5, 3, 1, 9, 2, 5, 3

Offset: 0

Gus Wiseman, May 20 2019

After a(0) = 1, same as A032741(n + 1) (number of proper divisors of n + 1).

The Heinz numbers of these partitions are given by A325764.

			The a(1) = 1 through a(13) = 3 partitions:
  (1)  (11)  (21)   (1111)  (221)    (111111)  (2221)     (3311)
             (111)          (311)              (4111)     (11111111)
                            (11111)            (1111111)
.
  (22221)      (1111111111)  (33311)        (111111111111)  (2222221)
  (51111)                    (44111)                        (7111111)
  (111111111)                (222221)                       (1111111111111)
                             (611111)
                             (11111111111)

Cf. A000041, A002033, A103295, A103300, A143823, A169942, A325676, A325683, A325768, A325769, A325770.

normQ[m_]:=Or[m=={},Union[m]==Range[Max[m]]];
Table[Length[Select[IntegerPartitions[n],normQ[Total/@Union[ReplaceList[#,{_,s__,_}:>{s}]]]&&UnsameQ@@Total/@Union[ReplaceList[#,{_,s__,_}:>{s}]]&]],{n,0,20}]

A335519 Number of contiguous divisors of n.

Original entry on oeis.org

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

Offset: 1

Gus Wiseman, Jun 26 2020

nonn

A divisor of n is contiguous if its prime factors, counting multiplicity, are a contiguous subsequence of the prime factors of n. Explicitly, a divisor d|n is contiguous if n can be written as n = x * d * y where the least prime factor of d is at least the greatest prime factor of x, and the greatest prime factor of d is at most the least prime factor of y.

			The a(84) = 10 distinct contiguous subsequences of (2,2,3,7) are (), (2), (3), (7), (2,2), (2,3), (3,7), (2,2,3), (2,3,7), (2,2,3,7), corresponding to the divisors 1, 2, 3, 7, 4, 6, 21, 12, 42, 84.

Wikipedia, Permutation pattern
Gus Wiseman, Sequences counting and encoding certain classes of multisets
Gus Wiseman, Sequences counting and ranking compositions by the patterns they match or avoid.

The not necessarily contiguous version is A000005.
Each number's prime indices are given in the rows of A112798.
Contiguous subsequences of standard compositions are counted by A124771.
Minimal avoided patterns of prime indices are counted by A335550.
Patterns contiguously matched by partitions are counted by A335838.
Cf. A000670, A056239, A056986, A181796, A325770, A334299, A335457.

primeMS[n_]:=If[n==1,{},Flatten[Cases[FactorInteger[n],{p_,k_}:>Table[PrimePi[p],{k}]]]];
Table[Length[Union[ReplaceList[primeMS[n],{_,s___,_}:>{s}]]],{n,100}]

a(n) = A325770(n) + 1.

A383159 The sum of the maximum exponents in the prime factorizations of the unitary divisors of n.

Original entry on oeis.org

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

Offset: 1

Amiram Eldar, Apr 18 2025

First differs from A032741 at n = 36, and from A305611 and A325770 at n = 30.

a(n) depends only on the prime signature of n (A118914).

			4 has 2 unitary divisors: 1 and 4 = 2^2. The maximum exponents in their prime factorizations are 0 and 2, respectively. Therefore, a(4) = 0 + 2 = 2.
12 has 4 divisors: 1, 3 = 3^1, 4 = 2^2 and 12 = 2^2 * 3. The maximum exponents in their prime factorizations are 0, 1, 2 and 2, respectively. Therefore, a(12) = 0 + 1 + 2 + 2 = 5.

Amiram Eldar, Table of n, a(n) for n = 1..10000
Amiram Eldar, Plot of abs((Sum_{k=1..n} a(k))/(c_1*n*log(n) + c_2*n) - 1) for n = 10^(1..10).

The unitary version of A383156.
Cf. A005117, A034444, A051903, A056671, A077610, A365498, A365499, A383160, A383161.
Cf. A032741, A305611, A325770.

emax[n_] := If[n == 1, 0, Max[FactorInteger[n][[;; , 2]]]]; a[n_] := DivisorSum[n, emax[#] &, CoprimeQ[#, n/#] &]; Array[a, 100]
(* second program: *)
a[n_] := If[n == 1, 0, Module[{e = FactorInteger[n][[;; , 2]], emax, v}, emax = Max[e]; v = Table[Times @@ (If[# < k + 1, 2, 1] & /@ e), {k, 1, emax}]; v[[1]] + Sum[k*(v[[k]] - v[[k - 1]]), {k, 2, emax}] - 1]]; Array[a, 100]

emax(n) = if(n == 1, 0, vecmax(factor(n)[,2]));
a(n) = sumdiv(n, d, (gcd(d, n/d) == 1) * emax(d));

a(n) = if(n == 1, 0, my(e = factor(n)[, 2], emax = vecmax(e), v); v = vector(emax, k, vecprod(apply(x ->if(x < k+1, 2, 1), e))); v[1] + sum(k = 2, emax, k * (v[k]-v[k-1])) - 1);

a(n) = Sum_{d|n, gcd(d, n/d) = 1} A051903(d).
a(n) = A034444(n) * A383160(n)/A383161(n).
a(n) <= A383156(n), with equality if and only if n is squarefree (A005117).
a(n) = utau(n, 2) - 1 + Sum_{k=2..A051903(n)} k * (utau(n, k+1) - utau(n, k)), where utau(n, k) is the number of k-free unitary divisors of n (k-free numbers are numbers that are not divisible by a k-th power other than 1). For a given k >= 2, utau(n, k) is a multiplicative function with utau(p^e, k) = 2 if e < k, and 1 otherwise. E.g., utau(n, 2) = A056671(n), utau(n, 3) = A365498(n), and utau(n, 4) = A365499(n).
Sum_{k=1..n} a(k) ~ c_1 * n * log(n) + c_2 * n, where c_1 = c(2) + Sum_{k>=3} (k-1) * (c(k) - c(k-1)) = 0.91974850283445458744..., c(k) = Product_{p prime} (1 - 1/p^2 - 1/p^k + 1/p^(k+1)), c_2 = -1 + (2*gamma - 1)*c_1 + d(2) + Sum_{k>=3} (k-1) * (d(k) - d(k-1)) = -0.50780794945146599739..., d(k) = c(k) * Sum_{p prime} (2*p^(k-1) + k*p - k - 1) * log(p) / (p^(k+1) - p^(k-1) - p + 1), and gamma is Euler's constant (A001620).

A325764 Heinz numbers of integer partitions whose distinct consecutive subsequences have distinct sums that cover an initial interval of positive integers.

Original entry on oeis.org

1, 2, 4, 6, 8, 16, 18, 20, 32, 54, 56, 64, 100, 128, 162, 176, 256, 392, 416, 486, 500, 512, 1024, 1088, 1458, 1936, 2048, 2432, 2500, 2744, 4096, 4374, 5408, 5888, 8192, 12500, 13122, 14848, 16384, 18496, 19208, 21296, 31744, 32768, 39366, 46208, 62500, 65536

Offset: 1

Gus Wiseman, May 20 2019

nonn

The Heinz number of an integer partition (y_1,...,y_k) is prime(y_1)*...*prime(y_k).

The enumeration of these partitions by sum is given by A325765.

			The sequence of terms together with their prime indices begins:
     1: {}
     2: {1}
     4: {1,1}
     6: {1,2}
     8: {1,1,1}
    16: {1,1,1,1}
    18: {1,2,2}
    20: {1,1,3}
    32: {1,1,1,1,1}
    54: {1,2,2,2}
    56: {1,1,1,4}
    64: {1,1,1,1,1,1}
   100: {1,1,3,3}
   128: {1,1,1,1,1,1,1}
   162: {1,2,2,2,2}
   176: {1,1,1,1,5}
   256: {1,1,1,1,1,1,1,1}
   392: {1,1,1,4,4}
   416: {1,1,1,1,1,6}
   486: {1,2,2,2,2,2}
   500: {1,1,3,3,3}
   512: {1,1,1,1,1,1,1,1,1}

Cf. A002033, A056239, A103295, A103300, A112798, A143823, A169942, A325676, A325685, A325763, A325765, A325769, A325770.

primeMS[n_]:=If[n==1,{},Flatten[Cases[FactorInteger[n],{p_,k_}:>Table[PrimePi[p],{k}]]]];
Select[Range[1000],UnsameQ@@Total/@Union[ReplaceList[primeMS[#],{_,s__,_}:>{s}]]&&Range[Total[primeMS[#]]]==Union[ReplaceList[primeMS[#],{_,s__,_}:>Plus[s]]]&]

A325777 Heinz numbers of integer partitions whose distinct consecutive subsequences do not have different sums.

Original entry on oeis.org

12, 24, 30, 36, 40, 48, 60, 63, 70, 72, 80, 84, 90, 96, 108, 112, 120, 126, 132, 140, 144, 150, 154, 156, 160, 165, 168, 180, 189, 192, 198, 200, 204, 210, 216, 220, 224, 228, 240, 252, 264, 270, 273, 276, 280, 286, 288, 300, 308, 312, 315, 320, 324, 325, 330

Offset: 1

Gus Wiseman, May 20 2019

nonn

First differs from A299729 in lacking 462.

This sequence does not contain all multiples of its elements. For example, it contains 154 (with prime indices {1,4,5}) but not 462 (with prime indices {1,2,4,5}).

Complement of A325778.

Cf. A002033, A056239, A112798, A143823, A169942, A299702, A301899, A325676, A325683, A325768, A325769, A325770.

primeMS[n_]:=If[n==1,{},Flatten[Cases[FactorInteger[n],{p_,k_}:>Table[PrimePi[p],{k}]]]];
Select[Range[100],!UnsameQ@@Total/@Union[ReplaceList[primeMS[#],{_,s__,_}:>{s}]]&]

A334268 Number of compositions of n where every distinct subsequence (not necessarily contiguous) has a different sum.

Original entry on oeis.org

1, 1, 2, 4, 5, 10, 10, 24, 24, 43, 42, 88, 72, 136, 122, 242, 213, 392, 320, 630, 490, 916, 742, 1432, 1160, 1955, 1604, 2826, 2310, 3850, 2888, 5416, 4426, 7332, 5814, 10046, 7983, 12946, 10236, 17780, 14100, 22674, 17582, 30232, 23674, 37522, 29426, 49832

Offset: 0

Gus Wiseman, Jun 02 2020

nonn

A composition of n is a finite sequence of positive integers summing to n.

The contiguous case is A325676.

			The a(1) = 1 through a(6) = 19 compositions:
  (1)  (2)    (3)      (4)        (5)          (6)
       (1,1)  (1,2)    (1,3)      (1,4)        (1,5)
              (2,1)    (2,2)      (2,3)        (2,4)
              (1,1,1)  (3,1)      (3,2)        (3,3)
                       (1,1,1,1)  (4,1)        (4,2)
                                  (1,1,3)      (5,1)
                                  (1,2,2)      (1,1,4)
                                  (2,2,1)      (2,2,2)
                                  (3,1,1)      (4,1,1)
                                  (1,1,1,1,1)  (1,1,1,1,1,1)

These compositions are ranked by A334967.
Compositions where every restriction to a subinterval has a different sum are counted by A169942 and A325677 and ranked by A333222. The case of partitions is counted by A325768 and ranked by A325779.
Positive subset-sums of partitions are counted by A276024 and A299701.
Knapsack partitions are counted by A108917 and A325592 and ranked by A299702, while the strict case is counted by A275972 and ranked by A059519 and A301899.
Knapsack compositions are counted by A325676 and A325687 and ranked by A333223. The case of partitions is counted by A325769 and ranked by A325778, for which the number of distinct consecutive subsequences is given by A325770.
Cf. A003022, A029931, A103295, A143823, A325680, A333224.

b:= proc(n, s) option remember; `if`(n=0, 1, add((h->
      `if`(nops(h)=nops(map(l-> add(i, i=l), h)),
       b(n-j, h), 0))({s[], map(l-> [l[], j], s)[]}), j=1..n))
    end:
a:= n-> b(n, {[]}):
seq(a(n), n=0..23);  # Alois P. Heinz, Jun 03 2020

Table[Length[Select[Join@@Permutations/@IntegerPartitions[n],UnsameQ@@Total/@Union[Subsets[#]]&]],{n,0,15}]

a(18)-a(47) from Alois P. Heinz, Jun 03 2020

A335279 Positions of first appearances in A124771 = number of distinct contiguous subsequences of compositions in standard order.

Original entry on oeis.org

0, 1, 3, 5, 11, 15, 23, 27, 37, 47, 55, 107, 111, 119, 155, 215, 223, 239, 411, 431, 471, 479, 495, 549, 631, 943, 951, 959, 991, 1647, 1887, 1967, 1983, 2015, 2543, 2935, 3703, 3807, 3935, 3967, 4031, 6639, 6895, 7407, 7871, 7903, 8063, 8127, 10207, 13279

Offset: 1

Gus Wiseman, Jun 03 2020

nonn

			The sequence together with the corresponding compositions begins:
     0: ()                215: (1,2,2,1,1,1)
     1: (1)               223: (1,2,1,1,1,1,1)
     3: (1,1)             239: (1,1,2,1,1,1,1)
     5: (2,1)             411: (1,3,1,2,1,1)
    11: (2,1,1)           431: (1,2,2,1,1,1,1)
    15: (1,1,1,1)         471: (1,1,2,2,1,1,1)
    23: (2,1,1,1)         479: (1,1,2,1,1,1,1,1)
    27: (1,2,1,1)         495: (1,1,1,2,1,1,1,1)
    37: (3,2,1)           549: (4,3,2,1)
    47: (2,1,1,1,1)       631: (3,1,1,2,1,1,1)
    55: (1,2,1,1,1)       943: (1,1,2,2,1,1,1,1)
   107: (1,2,2,1,1)       951: (1,1,2,1,2,1,1,1)
   111: (1,2,1,1,1,1)     959: (1,1,2,1,1,1,1,1,1)
   119: (1,1,2,1,1,1)     991: (1,1,1,2,1,1,1,1,1)
   155: (3,1,2,1,1)      1647: (1,3,1,2,1,1,1,1)
The subsequences for n = 0, 1, 3, 5, 11, 15, 23, 27 are the following (0 = empty partition):
  0  0  0   0   0    0     0     0     0    0
     1  1   1   1    1     1     1     1    1
        11  2   2    11    2     2     2    2
            21  11   111   11    11    3    11
                21   1111  21    12    21   21
                211        111   21    32   111
                           211   121   321  211
                           2111  211        1111
                                 1211       2111
                                            21111

Positions of first appearances in A124771.
Compositions where every subinterval has a different sum are A333222.
Knapsack compositions are A333223.
Cf. A000120, A003022, A029931, A066099, A070939, A124767, A124770, A325770, A334299, A334968.

stc[n_]:=Differences[Prepend[Join@@Position[Reverse[IntegerDigits[n,2]],1],0]]//Reverse;
seq=Table[Length[Union[ReplaceList[stc[n],{_,s___,_}:>{s}]]],{n,0,1000}];
Table[Position[seq,i][[1,1]]-1,{i,First/@Gather[seq]}]

cp's OEIS Frontend

A325779 Heinz numbers of integer partitions for which every restriction to a subinterval has a different sum.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

A347708 Number of distinct possible alternating products of odd-length factorizations of n.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

PARI

Formula

Extensions

A334967 Numbers k such that the every subsequence (not necessarily contiguous) of the k-th composition in standard order (A066099) has a different sum.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

A325765 Number of integer partitions of n with a unique consecutive subsequence summing to every positive integer from 1 to n.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

A335519 Number of contiguous divisors of n.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

Formula

A383159 The sum of the maximum exponents in the prime factorizations of the unitary divisors of n.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

PARI

PARI

Formula

A325764 Heinz numbers of integer partitions whose distinct consecutive subsequences have distinct sums that cover an initial interval of positive integers.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

A325777 Heinz numbers of integer partitions whose distinct consecutive subsequences do not have different sums.

Views

Author

Keywords

Comments

Crossrefs