cp's OEIS Frontend

A278615 Sum of terms in level n of TRIP - Stern sequence associated with permutation triple (e,13,23).

%I A278615 #21 Feb 28 2019 11:50:59
%S A278615 3,8,21,56,148,394,1044,2776,7364,19568,51936,137960,366256,972736,
%T A278615 2582736,6858880,18212288,48363680,128423232,341027456,905565760,
%U A278615 2404701952,6385502208,16956417664,45026632448,119565922304,317499868416,843103631360,2238811202560,5945037720064,15786698462208,41920680589312,111317928707072
%N A278615 Sum of terms in level n of TRIP -  Stern sequence associated with permutation triple (e,13,23).
%H A278615 Georg Fischer, <a href="/A278615/b278615.txt">Table of n, a(n) for n = 0..1000</a>
%H A278615 I. Amburg, K. Dasaratha, L. Flapan, T. Garrity, C. Lee, C. Mihailak, N. Neumann-Chun, S. Peluse, M. Stoffregen, <a href="https://arxiv.org/abs/1509.05239">Stern Sequences for a Family of Multidimensional Continued Fractions: TRIP-Stern Sequences</a>, arXiv:1509.05239 [math.CO], 17 Sep 2015.
%H A278615 <a href="/index/Rec#order_03">Index entries for linear recurrences with constant coefficients</a>, signature (2,4,-6).
%F A278615 G.f.: ( 3+2*x-7*x^2 ) / ( 1-2*x-4*x^2+6*x^3 ). - _R. J. Mathar_, Dec 02 2016
%F A278615 a(n) = A271893(n)+A271894(n)+A271895(n). - _R. J. Mathar_, Dec 02 2016
%p A278615 A278615T := proc(n)
%p A278615     option remember;
%p A278615     local an, nrecur ;
%p A278615     if n = 1 then
%p A278615         [1, 1, 1] ;
%p A278615     else
%p A278615         an := procname(floor(n/2)) ;
%p A278615         if type(n, 'even') then
%p A278615             # apply F0
%p A278615             [op(1, an)+ op(3, an),op(3, an), op(2, an)] ;
%p A278615         else
%p A278615             # apply F1
%p A278615             [op(1, an), op(1, an)+ op(3, an),op(2, an)] ;
%p A278615         end if;
%p A278615     end if;
%p A278615 end proc;
%p A278615 A278615 := proc(n)
%p A278615     local a, l;
%p A278615     a := 0 ;
%p A278615     for l from 2^n to 2^(n+1)-1 do
%p A278615         L := A278615T(l) ;
%p A278615         a := a+ L[1]+L[2]+L[3] ;
%p A278615     end do:
%p A278615     a ;
%p A278615 end proc: # _R. J. Mathar_, Dec 02 2016
%t A278615 LinearRecurrence[{2, 4, -6}, {3, 8, 21}, 20] (* _Jean-François Alcover_, Nov 22 2017, after _R. J. Mathar_'s g.f. *)
%Y A278615 Cf. A271893, A278612, A278613, A278614, A278616.
%K A278615 nonn
%O A278615 0,1
%A A278615 _Ilya Amburg_, Nov 23 2016
%E A278615 More terms from _R. J. Mathar_, Dec 02 2016