OFFSET
1,2
COMMENTS
Charlie Chaplin numbers are inspired by his comedy routine working on a conveyor belt. Which input functions give chaotic outputs? How does the output sequence grow?
Comment from David Wasserman, Mar 11 2008: The sequence gives the record values of the system output. The record values that occur while computing the system output are given in A116587.
LINKS
David Wasserman and Paul Tek, Table of n, a(n) for n = 1..1000 (first 79 terms from David Wasserman)
MAPLE
A101210 := proc(nmax) local F, m, Fnew, Fnewidx, a ; F := [seq(2- (i mod 2), i=1..nmax)] ; m := 1: while m <= nops(F) do if m+op(m, F) <= nops(F) then Fnew := op(m, F)+op(m+op(m, F), F) ; Fnewidx := m+op(m, F) ; F := subsop(Fnewidx=Fnew, F) ; fi ; m := m+1 ; od: a := [1] ; for m from 2 to nops(F) do if op(m, F) > op(-1, a) then a := [op(a), op(m, F)] ; fi ; od: a ; end: A101210(40000) ; # R. J. Mathar, Mar 12 2008
MATHEMATICA
max = 50000; chCh = Flatten[Table[{1, 2}, {max}]]; iter = 1; While[iter < max/2, chCh[[iter + chCh[[iter]]]] += chCh[[iter]]; iter++]; currHigh=1; jter=2; While[jter <= Length[chCh], If[chCh[[jter]] > currHigh, currHigh = chCh[[jter]]; jter++, chCh = Drop[chCh, {jter}]]]; chCh = Drop[chCh, -1] (* Alonso del Arte, Dec 03 2011 *)
CROSSREFS
KEYWORD
easy,nonn,obsc
AUTHOR
Gordon Hamilton, Dec 14 2004
EXTENSIONS
More terms from David Wasserman, Mar 11 2008
More terms from R. J. Mathar, Mar 12 2008
STATUS
approved