This site is supported by donations to The OEIS Foundation.

 Hints (Greetings from The On-Line Encyclopedia of Integer Sequences!)
 A107793 Differences between successive indices of 1's in the ternary tribonacci sequence A305390. 2
 4, 5, 3, 5, 4, 5, 4, 5, 3, 5, 4, 5, 5, 4, 5, 3, 5, 4, 5, 3, 5, 4, 5, 5, 4, 5, 3, 5, 4, 5, 4, 5, 3, 5, 4, 5, 5, 4, 5, 3, 5, 4, 5, 4, 5, 3, 5, 4, 5, 5, 4, 5, 3, 5, 4, 5, 3, 5, 4, 5, 5, 4, 5, 3, 5, 4, 5, 4, 5, 3, 5, 4, 5, 5, 4, 5, 3, 5, 4, 5, 5, 4, 5, 3, 5, 4, 5, 4, 5, 3, 5, 4, 5, 5, 4, 5, 3, 5, 4, 5 (list; graph; refs; listen; history; text; internal format)
 OFFSET 0,1 COMMENTS Average value is 4.38095... Conjecture (N. J. A. Sloane, Jun 22 2018) This is a disguised form of A275925. More precisely, if we replace the 5's by 6's and the 4's by 5's, and ignore the first two terms, we appear to get a sequence which is a shifted version of A275925. LINKS MAPLE # From N. J. A. Sloane, Jun 22 2018. The value 16 can be replaced (in two places) by any number congruent to 1 mod 3. with(ListTools); S := Array(0..30); psi:=proc(T) Flatten(subs( {1=[2], 2=[3], 3=[1, 2, 3]}, T)); end; S[0]:=[1]; for n from 1 to 16 do S[n]:=psi(S[n-1]): od: # Get differences between indices of 1's in S: Bag:=proc(S) local i, a; global DIFF; a:=[]; for i from 1 to nops(S) do if S[i]=1 then a:=[op(a), i]; fi; od: DIFF(a); end; Bag(S[16]); MATHEMATICA s[1] = {2}; s[2] = {3}; s[3] = {1, 2, 3}; t[a_] := Flatten[s /@ a]; p[0] = {1}; p[1] = t[p[0]]; p[n_] := t[p[n - 1]] pp = p[13] a = Flatten[Table[If[pp[[j]] == 1, j, {}], {j, 1, Length[pp]}]] b = Table[a[[n]] - a[[n - 1]], {n, 2, Length[a]}] CROSSREFS Cf. A000045, A000213, A000931. Cf. also A059832, A275925, A305389, A305390, A305391. Sequence in context: A069197 A021692 A222627 * A275275 A196402 A268741 Adjacent sequences:  A107790 A107791 A107792 * A107794 A107795 A107796 KEYWORD nonn AUTHOR Roger L. Bagula, Jun 11 2005 EXTENSIONS Edited (and checked) by N. J. A. Sloane, Jun 21 2018 (the original version did not make it clear that this is based on only one of the three tribonacci sequences A305389, A305390, A305391). STATUS approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recent
The OEIS Community | Maintained by The OEIS Foundation Inc.

Last modified January 22 05:11 EST 2019. Contains 319353 sequences. (Running on oeis4.)