This site is supported by donations to The OEIS Foundation.

 Hints (Greetings from The On-Line Encyclopedia of Integer Sequences!)
 A271488 Maximal term of TRIP-Stern sequence of level n corresponding to permutation triple (e,23,e). 5
 1, 2, 3, 4, 5, 8, 11, 15, 21, 30, 41, 56, 79, 112, 153, 209, 297, 418, 571, 782, 1109, 1560, 2131, 2940, 4141, 5822, 7953, 10981, 15455, 21728, 29681, 41003, 57681, 81090, 110771, 153105, 215269, 302632, 413403, 571428, 803397 (list; graph; refs; listen; history; text; internal format)
 OFFSET 0,2 LINKS I. Amburg, K. Dasaratha, L. Flapan, T. Garrity, C. Lee, C. Mihailak, N. Neumann-Chun, S. Peluse, M. Stoffregen, Stern Sequences for a Family of Multidimensional Continued Fractions: TRIP-Stern Sequences, arXiv:1509.05239v1 [math.CO] 17 Sep 2015. See Conjecture 5.8. MAPLE A271488T := proc(n)     option remember;     local an ;     if n = 1 then         [1, 1, 1] ;     else         an := procname(floor(n/2)) ;         if type(n, 'even') then             # apply F0             [op(2, an), op(1, an)+op(3, an), op(3, an)] ;         else             # apply F1             [op(1, an), op(2, an), op(1, an)+op(3, an)] ;         end if;     end if; end proc: A271488 := proc(n)     local a, l, nmax;     a := 0 ;     for l from 2^n to 2^(n+1)-1 do         nmax := max( op(A271488T(l)) );         a := max(a, nmax) ;     end do:     a ; end proc: # R. J. Mathar, Apr 16 2016 MATHEMATICA A271487T[n_] := A271487T[n] = Module[{an}, If[n == 1, {1, 1, 1}, an = A271487T[Floor[n/2]]; If[EvenQ[n], {an[[2]], an[[1]] + an[[3]], an[[3]]}, {an[[1]], an[[2]], an[[1]] + an[[3]]}]]]; a[n_] := a[n] = Module[{a = 0, l, nMax}, For[l = 2^n, l <= 2^(n + 1) - 1, l++, nMax = Max[A271487T[l]]; a = Max[a, nMax]]; a]; Table[Print["a(", n, ") = ", a[n]]; a[n], {n, 0, 20}] (* Jean-François Alcover, Nov 17 2017, after R. J. Mathar *) CROSSREFS For sequences mentioned in Conjecture 5.8 of Amburg et al. (2015) see A271485, A000930, A271486, A271487, A271488, A164001, A000045, A271489. Sequence in context: A008825 A261629 A244395 * A302592 A078762 A103262 Adjacent sequences:  A271485 A271486 A271487 * A271489 A271490 A271491 KEYWORD nonn,more AUTHOR N. J. A. Sloane, Apr 13 2016 EXTENSIONS a(4) corrected by Jean-François Alcover and Vaclav Kotesovec, Nov 18 2017 a(21)-a(24) from Vaclav Kotesovec, Nov 18 2017 a(25)-a(26) from Vaclav Kotesovec, Nov 29 2017 a(27)-a(40) from Lars Blomberg, Jan 08 2018 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 March 22 17:25 EDT 2019. Contains 321422 sequences. (Running on oeis4.)