The On-Line Encyclopedia of Integer Sequences (OEIS)

Revision History for A055188 (Bold, blue-underlined text is an addition; faded, red-underlined text is a ~~deletion~~.)
Showing entries 1-10 | older changes

A055188

Cumulative counting sequence: method A (adjective-before-noun) pairs, starting with 2.
(history; published version)

#16 by Michael De Vlieger at Fri Nov 11 13:17:16 EST 2022

STATUS

reviewed

approved

#15 by Michel Marcus at Fri Nov 11 12:25:37 EST 2022

STATUS

proposed

reviewed

#14 by Michel Marcus at Fri Nov 11 12:25:31 EST 2022

STATUS

editing

proposed

#13 by Michel Marcus at Fri Nov 11 12:25:28 EST 2022

COMMENTS

Segments (generated as at A217760): 2; 1,2; 2,2,1,1; 4,2,3,1; 5,2,4,1,1,4,1,3; ... The 4th segment is read "4 2's and 3 1's" as a record of what was previously written; 4,2 are adjectives and 2 1 are nouns. Conjecture: every nonnegative integer occurs. - Clark Kimberling , Mar 25 2013

STATUS

proposed

editing

#12 by Seiichi Manyama at Fri Nov 11 12:13:00 EST 2022

STATUS

editing

proposed

#11 by Seiichi Manyama at Fri Nov 11 12:03:39 EST 2022

LINKS

Seiichi Manyama, <a href="/A055188/b055188.txt">Table of n, a(n) for n = 1..10000</a>

STATUS

approved

editing

#10 by N. J. A. Sloane at Sun Dec 04 19:46:23 EST 2016

MATHEMATICA

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

Discussion

Sun Dec 04

19:46

OEIS Server: https://oeis.org/edit/global/2576

#9 by T. D. Noe at Mon Mar 25 20:14:57 EDT 2013

STATUS

editing

approved

#8 by T. D. Noe at Mon Mar 25 20:14:53 EDT 2013

MATHEMATICA

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

DeleteDuplicates[s]}], {14}]; s

(* Peter Moses, Mar 21 2013 *)

STATUS

proposed

editing

#7 by Clark Kimberling at Mon Mar 25 17:05:32 EDT 2013

STATUS

editing

proposed