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.
%I A055189 #17 Nov 11 2022 13:17:03 %S A055189 3,1,3,2,3,1,1,3,3,3,1,1,2,6,3,5,1,2,2,7,3,6,1,4,2,1,6,1,5,8,3,9,1,5, %T A055189 2,3,6,2,5,1,7,1,4,10,3,12,1,7,2,4,6,4,5,2,7,2,4,1,8,1,9,11,3,15,1,10, %U A055189 2,5,6,5,5,4,7,5,4,2,8,2,9,1,10,1,12,12,3,18 %N A055189 Cumulative counting sequence: method A (adjective-before-noun)-pairs, starting with 3. %C A055189 Segments (generated as at A217760): 3; 1,3; 2,3,1,1; 3,3,3,1,1,2; ... %C A055189 The 4th segment is read "3 3's and 3 1's and 1 2" as a record of what was previously written; 3 3 1 are adjectives and 3 1 2 are nouns. Conjecture: every nonnegative integer occurs. - _Clark Kimberling_, Mar 25 2013 %H A055189 Seiichi Manyama, <a href="/A055189/b055189.txt">Table of n, a(n) for n = 1..10000</a> %e A055189 Write 3, thus having 1 3, thus having 2 3's and 1 1, thus having 3 3's and 3 1's and 1 2, etc. %t A055189 s = {3}; Do[s = Flatten[{s, {Count[s, #], #} & /@ DeleteDuplicates[s]}], {14}]; s (* _Peter J. C. Moses_, Mar 21 2013 *) %Y A055189 Cf. A217760, A217780. %K A055189 nonn %O A055189 1,1 %A A055189 _Clark Kimberling_, Apr 27 2000