Year-end appeal: Please make a donation to the OEIS Foundation to support ongoing development and maintenance of the OEIS. We are now in our 61st year, we have over 378,000 sequences, and we’ve reached 11,000 citations (which often say “discovered thanks to the OEIS”).
%I #13 Jul 01 2024 20:10:51
%S 0,0,0,3,2,4,5,6,6,9,8,10,11,12,12,15,14,16,17,18,18,21,20,22,23,24,
%T 24,27,26,28,29,30,30,33,32,34,35,36,36,39,38,40,41,42,42,45,44,46,47,
%U 48,48,51,50,52,53,54,54,57,56,58,59,60,60,63,62,64,65,66
%N Number of integer compositions of n whose run-compression sums to 3.
%C We define the (run-) compression of a sequence to be the anti-run obtained by reducing each run of repeated parts to a single part. Alternatively, compression removes all parts equal to the part immediately to their left. For example, (1,1,2,2,1) has compression (1,2,1).
%H John Tyler Rascoe, <a href="/A373952/b373952.txt">Table of n, a(n) for n = 0..10000</a>
%F G.f.: x^3 * (3-x-x^2-x^3)/((1-x)*(1-x^2)*(1-x^3)). - _John Tyler Rascoe_, Jul 01 2024
%e The a(3) = 3 through a(9) = 9 compositions:
%e (3) (112) (122) (33) (1222) (11222) (333)
%e (12) (211) (221) (1122) (2221) (22211) (12222)
%e (21) (1112) (2211) (11122) (111122) (22221)
%e (2111) (11112) (22111) (221111) (111222)
%e (21111) (111112) (1111112) (222111)
%e (211111) (2111111) (1111122)
%e (2211111)
%e (11111112)
%e (21111111)
%t Table[Length[Select[Join@@Permutations /@ IntegerPartitions[n],Total[First/@Split[#]]==3&]],{n,0,10}]
%o (PARI)
%o A_x(N)={my(x='x+O('x^N)); concat([0, 0, 0], Vec(x^3 *(3-x-x^2-x^3)/((1-x)*(1-x^2)*(1-x^3))))}
%o A_x(50) \\ _John Tyler Rascoe_, Jul 01 2024
%Y For partitions we appear to have A137719.
%Y Column k = 3 of A373949, rows-reversed A373951.
%Y The compression-sum statistic is represented by A373953, difference A373954.
%Y A003242 counts compressed compositions (anti-runs).
%Y A011782 counts compositions.
%Y A114901 counts compositions with no isolated parts.
%Y A116861 counts partitions by compressed sum, by compressed length A116608.
%Y A124767 counts runs in standard compositions, anti-runs A333381.
%Y A240085 counts compositions with no unique parts.
%Y A333755 counts compositions by compressed length.
%Y A373948 represents the run-compression transformation.
%Y Cf. A037201 (halved A373947), A106356, A124762, A238130, A238279, A238343, A285981, A333213, A333489, A373950.
%K nonn
%O 0,4
%A _Gus Wiseman_, Jun 29 2024
%E a(26) onwards from _John Tyler Rascoe_, Jul 01 2024