A055189 Cumulative counting sequence: method A (adjective-before-noun)-pairs, starting with 3.

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, 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, 2, 5, 6, 5, 5, 4, 7, 5, 4, 2, 8, 2, 9, 1, 10, 1, 12, 12, 3, 18

Offset

1,1

Comments

Segments (generated as at A217760): 3; 1,3; 2,3,1,1; 3,3,3,1,1,2; ...

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

Links

Seiichi Manyama, Table of n, a(n) for n = 1..10000

Example

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.

Mathematica

s = {3}; Do[s = Flatten[{s, {Count[s, #], #} & /@ DeleteDuplicates[s]}], {14}]; s (* Peter J. C. Moses, Mar 21 2013 *)

Crossrefs

Cf. A217760, A217780.

Sequence in context: A367454 A126682 A016571 * A106824 A317203 A229215

Adjacent sequences: A055186 A055187 A055188 * A055190 A055191 A055192

Keyword

nonn

Author

Clark Kimberling, Apr 27 2000

Status

approved