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