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.

Showing 1-10 of 68 results. Next

A299702 Heinz numbers of knapsack partitions.

Original entry on oeis.org

1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 25, 26, 27, 28, 29, 31, 32, 33, 34, 35, 37, 38, 39, 41, 42, 43, 44, 45, 46, 47, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 61, 62, 64, 65, 66, 67, 68, 69, 71, 73, 74, 75, 76, 77, 78
Offset: 1

Views

Author

Gus Wiseman, Feb 17 2018

Keywords

Comments

An integer partition is knapsack if every distinct submultiset has a different sum. The Heinz number of an integer partition (y_1,...,y_k) is prime(y_1)*...*prime(y_k).

Crossrefs

Programs

  • Maple
    filter:= proc(n) local F,t,S,i,r;
      F:= map(t -> [numtheory:-pi(t[1]),t[2]], ifactors(n)[2]);
      S:= {0}: r:= 1;
      for t in F do
       S:= map(s -> seq(s + i*t[1],i=0..t[2]),S);
       r:= r*(t[2]+1);
       if nops(S) <> r then return false fi
      od;
      true
    end proc:
    select(filter, [$1..100]); # Robert Israel, Oct 30 2024
  • Mathematica
    primeMS[n_]:=If[n===1,{},Flatten[Cases[FactorInteger[n],{p_,k_}:>Table[PrimePi[p],{k}]]]];
    Select[Range[100],UnsameQ@@Plus@@@Union[Rest@Subsets[primeMS[#]]]&]

A301987 Heinz numbers of integer partitions whose product is equal to their sum.

Original entry on oeis.org

2, 3, 5, 7, 9, 11, 13, 17, 19, 23, 29, 30, 31, 37, 41, 43, 47, 53, 59, 61, 67, 71, 73, 79, 83, 84, 89, 97, 101, 103, 107, 108, 109, 113, 127, 131, 137, 139, 149, 151, 157, 163, 167, 173, 179, 181, 191, 193, 197, 199, 200, 211, 223, 227, 229, 233, 239, 241, 251
Offset: 1

Views

Author

Gus Wiseman, Mar 30 2018

Keywords

Comments

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

Examples

			Sequence of reversed integer partitions begins: (1), (2), (3), (4), (2 2), (5), (6), (7), (8), (9), (10), (1 2 3), (11), (12), (13), (14), (15), (16), (17), (18), (19), (20), (21), (22), (23), (1 1 2 4), (24), (25), (26), (27), (28), (1 1 2 2 2), (29), (30).
		

Crossrefs

Programs

  • Maple
    q:= n-> (l-> mul(i, i=l)=add(i, i=l))(map(i->
        numtheory[pi](i[1])$i[2], ifactors(n)[2])):
    select(q, [$1..300])[];  # Alois P. Heinz, Mar 27 2019
  • Mathematica
    primeMS[n_]:=If[n===1,{},Flatten[Cases[FactorInteger[n],{p_,k_}:>Table[PrimePi[p],{k}]]]];
    Select[Range[300],Total[primeMS[#]]===Times@@primeMS[#]&]

A304792 Number of subset-sums of integer partitions of n.

Original entry on oeis.org

1, 2, 5, 10, 19, 34, 58, 96, 152, 240, 361, 548, 795, 1164, 1647, 2354, 3243, 4534, 6150, 8420, 11240, 15156, 19938, 26514, 34513, 45260, 58298, 75704, 96515, 124064, 157072, 199894, 251097, 317278, 395625, 496184, 615229, 765836, 944045, 1168792, 1432439
Offset: 0

Views

Author

Gus Wiseman, May 18 2018

Keywords

Comments

For a multiset p of positive integers summing to n, a pair (t,p) is defined to be a subset sum if there exists a submultiset of p summing to t. This sequence is dominated by A122768 + A000041 (number of submultisets of integer partitions of n).

Examples

			The a(4)=19 subset sums are (0,4), (4,4), (0,31), (1,31), (3,31), (4,31), (0,22), (2,22), (4,22), (0,211), (1,211), (2,211), (3,211), (4,211), (0,1111), (1,1111), (2,1111), (3,1111), (4,1111).
		

Crossrefs

Programs

  • Maple
    b:= proc(n, i, s) option remember; `if`(n=0, nops(s),
         `if`(i<1, 0, b(n, i-1, s)+b(n-i, min(n-i, i),
          map(x-> [x, x+i][], s))))
        end:
    a:= n-> b(n$2, {0}):
    seq(a(n), n=0..40);  # Alois P. Heinz, May 18 2018
  • Mathematica
    Table[Total[Length[Union[Total/@Subsets[#]]]&/@IntegerPartitions[n]],{n,15}]
    (* Second program: *)
    b[n_, i_, s_] := b[n, i, s] = If[n == 0, Length[s],
         If[i < 1, 0, b[n, i - 1, s] + b[n - i, Min[n - i, i],
         {#, # + i}& /@ s // Flatten // Union]]];
    a[n_] := b[n, n, {0}];
    a /@ Range[0, 40] (* Jean-François Alcover, May 20 2021, after Alois P. Heinz *)
  • Python
    from functools import lru_cache
    @lru_cache(maxsize=None)
    def A304792_T(n,i,s,l):
        if n==0: return l
        if i<1: return 0
        return A304792_T(n,i-1,s,l)+A304792_T(n-i,min(n-i,i),(t:=tuple(sorted(set(s+tuple(x+i for x in s))))),len(t))
    def A304792(n): return A304792_T(n,n,(0,),1) # Chai Wah Wu, Sep 25 2023, after Alois P. Heinz

Formula

a(n) = A276024(n) + A000041(n).

A365543 Triangle read by rows where T(n,k) is the number of integer partitions of n with a submultiset summing to k.

Original entry on oeis.org

1, 1, 1, 2, 1, 2, 3, 2, 2, 3, 5, 3, 3, 3, 5, 7, 5, 5, 5, 5, 7, 11, 7, 8, 6, 8, 7, 11, 15, 11, 11, 11, 11, 11, 11, 15, 22, 15, 17, 15, 14, 15, 17, 15, 22, 30, 22, 23, 23, 22, 22, 23, 23, 22, 30, 42, 30, 33, 30, 33, 25, 33, 30, 33, 30, 42
Offset: 0

Views

Author

Gus Wiseman, Sep 16 2023

Keywords

Comments

Rows are palindromic.

Examples

			Triangle begins:
   1
   1   1
   2   1   2
   3   2   2   3
   5   3   3   3   5
   7   5   5   5   5   7
  11   7   8   6   8   7  11
  15  11  11  11  11  11  11  15
  22  15  17  15  14  15  17  15  22
  30  22  23  23  22  22  23  23  22  30
  42  30  33  30  33  25  33  30  33  30  42
  56  42  45  44  44  43  43  44  44  45  42  56
  77  56  62  58  62  56  53  56  62  58  62  56  77
Row n = 6 counts the following partitions:
  (6)       (51)      (42)      (33)      (42)      (51)      (6)
  (51)      (411)     (411)     (321)     (411)     (411)     (51)
  (42)      (321)     (321)     (3111)    (321)     (321)     (42)
  (411)     (3111)    (3111)    (2211)    (3111)    (3111)    (411)
  (33)      (2211)    (222)     (21111)   (222)     (2211)    (33)
  (321)     (21111)   (2211)    (111111)  (2211)    (21111)   (321)
  (3111)    (111111)  (21111)             (21111)   (111111)  (3111)
  (222)               (111111)            (111111)            (222)
  (2211)                                                      (2211)
  (21111)                                                     (21111)
  (111111)                                                    (111111)
		

Crossrefs

Columns k = 0 and k = n are A000041.
Central column n = 2k is A002219.
The complement is counted by A046663, strict A365663.
Row sums are A304792.
For subsets instead of partitions we have A365381.
The strict case is A365661.
A000009 counts subsets summing to n.
A000124 counts distinct possible sums of subsets of {1..n}.
A364272 counts sum-full strict partitions, sum-free A364349.

Programs

  • Mathematica
    Table[Length[Select[IntegerPartitions[n],MemberQ[Total/@Subsets[#],k]&]],{n,0,15},{k,0,n}]

A046663 Triangle: T(n,k) = number of partitions of n (>=2) with no subsum equal to k (1 <= k <= n-1).

Original entry on oeis.org

1, 1, 1, 2, 2, 2, 2, 2, 2, 2, 4, 3, 5, 3, 4, 4, 4, 4, 4, 4, 4, 7, 5, 7, 8, 7, 5, 7, 8, 7, 7, 8, 8, 7, 7, 8, 12, 9, 12, 9, 17, 9, 12, 9, 12, 14, 11, 12, 12, 13, 13, 12, 12, 11, 14, 21, 15, 19, 15, 21, 24, 21, 15, 19, 15, 21, 24, 19, 20, 19, 21, 22, 22, 21, 19, 20, 19, 24, 34, 23, 30, 24, 30, 25, 46, 25, 30, 24, 30, 23, 34
Offset: 2

Views

Author

Keywords

Examples

			For n = 4 there are two partitions (4, 2+2) with no subsum equal to 1, two (4, 3+1) with no subsum equal to 2 and two (4, 2+2) with no subsum equal to 3.
Triangle T(n,k) begins:
   1;
   1,  1;
   2,  2,  2;
   2,  2,  2,  2;
   4,  3,  5,  3,  4;
   4,  4,  4,  4,  4,  4;
   7,  5,  7,  8,  7,  5,  7;
   8,  7,  7,  8,  8,  7,  7,  8;
  12,  9, 12,  9, 17,  9, 12,  9, 12;
  ...
From _Gus Wiseman_, Oct 11 2023: (Start)
Row n = 8 counts the following partitions:
  (8)     (8)    (8)     (8)     (8)     (8)    (8)
  (62)    (71)   (71)    (71)    (71)    (71)   (62)
  (53)    (53)   (62)    (62)    (62)    (53)   (53)
  (44)    (44)   (611)   (611)   (611)   (44)   (44)
  (422)   (431)  (44)    (53)    (44)    (431)  (422)
  (332)          (422)   (521)   (422)          (332)
  (2222)         (2222)  (5111)  (2222)         (2222)
                         (332)
(End)
		

Crossrefs

Column k = 0 and diagonal k = n are both A002865.
Central diagonal n = 2k is A006827.
The complement with expanded domain is A365543.
The strict case is A365663, complement A365661.
Row sums are A365918, complement A304792.
For subsets instead of partitions we have A366320, complement A365381.
A000041 counts integer partitions, strict A000009.
A276024 counts distinct subset-sums of partitions.
A364272 counts sum-full strict partitions, sum-free A364349.

Programs

  • Maple
    g:= proc(n, i) option remember;
         `if`(n=0, 1, `if`(i>1, g(n, i-1), 0)+`if`(i>n, 0, g(n-i, i)))
        end:
    b:= proc(n, i, s) option remember;
         `if`(0 in s or n in s, 0, `if`(n=0 or s={}, g(n, i),
         `if`(i<1, 0, b(n, i-1, s)+`if`(i>n, 0, b(n-i, i,
          select(y-> 0<=y and y<=n-i, map(x-> [x, x-i][], s)))))))
        end:
    T:= (n, k)-> b(n, n, {min(k, n-k)}):
    seq(seq(T(n, k), k=1..n-1), n=2..16);  # Alois P. Heinz, Jul 13 2012
  • Mathematica
    g[n_, i_] := g[n, i] = If[n == 0, 1, If[i > 1, g[n, i-1], 0] + If[i > n, 0, g[n-i, i]]]; b[n_, i_, s_] := b[n, i, s] = If[MemberQ[s, 0 | n], 0, If[n == 0 || s == {}, g[n, i], If[i < 1, 0, b[n, i-1, s] + If[i > n, 0, b[n-i, i, Select[Flatten[s /. x_ :> {x, x-i}], 0 <= # <= n-i &]]]]]]; t[n_, k_] := b[n, n, {Min[k, n-k]}]; Table[t[n, k], {n, 2, 16}, {k, 1, n-1}] // Flatten (* Jean-François Alcover, Aug 20 2013, translated from Maple *)
    Table[Length[Select[IntegerPartitions[n],FreeQ[Total/@Subsets[#],k]&]],{n,2,10},{k,1,n-1}] (* Gus Wiseman, Oct 11 2023 *)

Extensions

Corrected and extended by Don Reble, Nov 04 2001

A237668 Number of partitions of n such that some part is a sum of two or more other parts.

Original entry on oeis.org

0, 0, 0, 0, 1, 1, 4, 4, 10, 13, 23, 27, 49, 60, 93, 115, 170, 210, 300, 370, 510, 632, 846, 1031, 1359, 1670, 2159, 2630, 3355, 4082, 5130, 6220, 7739, 9360, 11555, 13889, 16991, 20402, 24824, 29636, 35855, 42707, 51309, 60955, 72896, 86328, 102826, 121348
Offset: 0

Views

Author

Clark Kimberling, Feb 11 2014

Keywords

Comments

These are partitions containing the sum of some non-singleton submultiset of the parts, a variation of non-binary sum-full partitions where parts cannot be re-used, ranked by A364532. The complement is counted by A237667. The binary version is A237113, or A363225 with re-usable parts. This sequence is weakly increasing. - Gus Wiseman, Aug 12 2023

Examples

			a(6) = 4 counts these partitions: 123, 1113, 1122, 11112.
From _Gus Wiseman_, Aug 12 2023: (Start)
The a(0) = 0 through a(9) = 13 partitions:
  .  .  .  .  (211)  (2111)  (321)    (3211)    (422)      (3321)
                             (2211)   (22111)   (431)      (4221)
                             (3111)   (31111)   (3221)     (4311)
                             (21111)  (211111)  (4211)     (5211)
                                                (22211)    (32211)
                                                (32111)    (33111)
                                                (41111)    (42111)
                                                (221111)   (222111)
                                                (311111)   (321111)
                                                (2111111)  (411111)
                                                           (2211111)
                                                           (3111111)
                                                           (21111111)
(End)
		

Crossrefs

Cf. A179009.
The binary complement is A236912, ranks A364461.
The binary version is A237113, ranks A364462.
The complement is counted by A237667, ranks A364531.
The binary version with re-usable parts is A363225, ranks A364348.
The strict case is A364272.
The binary complement with re-usable parts is A364345, ranks A364347.
These partitions have ranks A364532.
For subsets instead of partitions we have A364534, complement A151897.
A000041 counts integer partitions, strict A000009.
A008284 counts partitions by length, strict A008289.
A108917 counts knapsack partitions, ranks A299702.
A299701 counts distinct subset-sums of prime indices.
A323092 counts double-free partitions, ranks A320340.

Programs

  • Mathematica
    z = 20; m = Map[Count[Map[MemberQ[#, Apply[Alternatives, Map[Apply[Plus, #] &, DeleteDuplicates[DeleteCases[Subsets[#], _?(Length[#] < 2 &)]]]]] &, IntegerPartitions[#]], False] &, Range[z]]; PartitionsP[Range[z]] - m
    (* Peter J. C. Moses, Feb 10 2014 *)
    Table[Length[Select[IntegerPartitions[n],Intersection[#,Total/@Subsets[#,{2,Length[#]}]]!={}&]],{n,0,15}] (* Gus Wiseman, Aug 12 2023 *)

Extensions

a(21)-a(47) from Giovanni Resta, Feb 22 2014

A365661 Triangle read by rows where T(n,k) is the number of strict integer partitions of n with a submultiset summing to k.

Original entry on oeis.org

1, 1, 1, 1, 0, 1, 2, 1, 1, 2, 2, 1, 0, 1, 2, 3, 1, 1, 1, 1, 3, 4, 2, 2, 1, 2, 2, 4, 5, 2, 2, 2, 2, 2, 2, 5, 6, 3, 2, 3, 1, 3, 2, 3, 6, 8, 3, 3, 4, 3, 3, 4, 3, 3, 8, 10, 5, 4, 5, 4, 3, 4, 5, 4, 5, 10, 12, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 12
Offset: 0

Views

Author

Gus Wiseman, Sep 16 2023

Keywords

Comments

First differs from A284593 at T(6,3) = 1, A284593(6,3) = 2.
Rows are palindromic.
Are there only two zeros in the whole triangle?

Examples

			Triangle begins:
  1
  1  1
  1  0  1
  2  1  1  2
  2  1  0  1  2
  3  1  1  1  1  3
  4  2  2  1  2  2  4
  5  2  2  2  2  2  2  5
  6  3  2  3  1  3  2  3  6
  8  3  3  4  3  3  4  3  3  8
Row n = 6 counts the following strict partitions:
  (6)      (5,1)    (4,2)    (3,2,1)  (4,2)    (5,1)    (6)
  (5,1)    (3,2,1)  (3,2,1)           (3,2,1)  (3,2,1)  (5,1)
  (4,2)                                                 (4,2)
  (3,2,1)                                               (3,2,1)
Row n = 10 counts the following strict partitions:
  A     91    82    73    64    532   64    73    82    91    A
  64    541   532   532   541   541   541   532   532   541   64
  73    631   721   631   631   4321  631   631   721   631   73
  82    721   4321  721   4321        4321  721   4321  721   82
  91    4321        4321                    4321        4321  91
  532                                                         532
  541                                                         541
  631                                                         631
  721                                                         721
  4321                                                        4321
		

Crossrefs

Columns k = 0 and k = n are A000009.
The non-strict complement is A046663, central column A006827.
Central column n = 2k is A237258.
For subsets instead of partitions we have A365381.
The non-strict case is A365543.
The complement is A365663.
A000124 counts distinct possible sums of subsets of {1..n}.
A364272 counts sum-full strict partitions, sum-free A364349.

Programs

  • Mathematica
    Table[Length[Select[Select[IntegerPartitions[n], UnsameQ@@#&], MemberQ[Total/@Subsets[#],k]&]], {n,0,10},{k,0,n}]

A365663 Triangle read by rows where T(n,k) is the number of strict integer partitions of n without a subset summing to k.

Original entry on oeis.org

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

Views

Author

Gus Wiseman, Sep 17 2023

Keywords

Comments

Warning: Do not confuse with the non-strict version A046663.
Rows are palindromes.

Examples

			Triangle begins:
  1
  1  1
  1  2  1
  2  2  2  2
  2  2  3  2  2
  3  3  3  3  3  3
  3  4  3  5  3  4  3
  5  5  4  5  5  4  5  5
  5  6  5  6  7  6  5  6  5
  7  7  7  7  7  7  7  7  7  7
  8  9  8  8  8 11  8  8  8  9  8
Row n = 8 counts the following strict partitions:
  (8)    (8)      (8)    (8)      (8)    (8)      (8)
  (6,2)  (7,1)    (7,1)  (7,1)    (7,1)  (7,1)    (6,2)
  (5,3)  (5,3)    (6,2)  (6,2)    (6,2)  (5,3)    (5,3)
         (4,3,1)         (5,3)           (4,3,1)
                         (5,2,1)
		

Crossrefs

Columns k = 0 and k = n are A025147.
The non-strict version is A046663, central column A006827.
Central column n = 2k is A321142.
The complement for subsets instead of strict partitions is A365381.
The complement is A365661, non-strict A365543, central column A237258.
Row sums are A365922.
A000009 counts subsets summing to n.
A000124 counts distinct possible sums of subsets of {1..n}.
A124506 appears to count combination-free subsets, differences of A326083.
A364272 counts sum-full strict partitions, sum-free A364349.
A364350 counts combination-free strict partitions, complement A364839.

Programs

  • Mathematica
    Table[Length[Select[IntegerPartitions[n], UnsameQ@@#&&FreeQ[Total/@Subsets[#],k]&]], {n,2,15},{k,1,n-1}]

A333224 Number of distinct positive consecutive subsequence-sums of the k-th composition in standard order.

Original entry on oeis.org

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

Views

Author

Gus Wiseman, Mar 18 2020

Keywords

Comments

The k-th composition in standard order (row k of 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.

Examples

			The composition (4,3,1,2) has positive subsequence-sums 1, 2, 3, 4, 6, 7, 8, 10, so a(550) = 8.
		

Crossrefs

Dominated by A124770.
Compositions where every 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.
Strict knapsack partitions are 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.
Allowing empty subsequences gives A333257.

Programs

  • Mathematica
    stc[n_]:=Differences[Prepend[Join@@Position[Reverse[IntegerDigits[n,2]],1],0]]//Reverse;
    Table[Length[Union[ReplaceList[stc[n],{_,s__,_}:>Plus[s]]]],{n,0,100}]

Formula

a(n) = A333257(n) - 1.

A333257 Number of distinct consecutive subsequence-sums of the k-th composition in standard order.

Original entry on oeis.org

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

Views

Author

Gus Wiseman, Mar 20 2020

Keywords

Comments

A composition of n is a finite sequence of positive integers summing to n. The k-th composition in standard order (row k of 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.

Examples

			The ninth composition in standard order is (3,1), which has consecutive subsequences (), (1), (3), (3,1), with sums 0, 1, 3, 4, so a(9) = 4.
		

Crossrefs

Dominated by A124771.
Compositions where every subinterval has a different sum are counted by A169942 and A325677 and ranked by A333222, while 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 ranked by A299702.
Knapsack compositions are counted by A325676 and A325687 and ranked by A333223.
The version for Heinz numbers of partitions is A325770.
Not allowing empty subsequences gives A333224.

Programs

  • Mathematica
    stc[n_]:=Differences[Prepend[Join@@Position[Reverse[IntegerDigits[n,2]],1],0]]//Reverse;
    Table[Length[Union[ReplaceList[stc[n],{_,s___,_}:>Plus[s]]]],{n,0,100}]

Formula

a(n) = A333224(n) + 1.
Showing 1-10 of 68 results. Next