|
%I #22 Jan 19 2019 04:12:56
%S 3,8,22,62,176,502,1434,4100,11726,33542,95952,274494,785266,2246484,
%T 6426742,18385646,52597744,150471910,430470890,1231493604
%N Sum of terms in level n of TRIP - Stern sequence associated with permutation triple (e,12,12).
%H 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.
%F Conjecture: G.f.: ( 3-x-5*x^2 ) / ( 1-3*x-x^2+4*x^3 ). - _R. J. Mathar_, Dec 02 2016
%p A278614T := proc(n)
%p option remember;
%p local an, nrecur ;
%p if n = 1 then
%p [1, 1, 1] ;
%p else
%p an := procname(floor(n/2)) ;
%p if type(n, 'even') then
%p # apply F0
%p [op(3, an), op(2, an),op(1, an)+ op(3, an)] ;
%p else
%p # apply F1
%p [op(2, an), op(1, an), op(1, an)+op(3, an)] ;
%p end if;
%p end if;
%p end proc;
%p A278614 := proc(n)
%p local a, l;
%p a := 0 ;
%p for l from 2^n to 2^(n+1)-1 do
%p L := A278614T(l) ;
%p a := a+ L[1]+L[2]+L[3] ;
%p end do:
%p a ;
%p end proc: # _R. J. Mathar_, Dec 02 2016
%t A278614T[n_] := A278614T[n] = Module[{an}, If[n == 1, {1, 1, 1}, an = A271487T[Floor[n/2]]; If[EvenQ[n], {an[[3]], an[[2]], an[[1]] + an[[3]]}, {an[[2]], an[[1]], an[[1]] + an[[3]]}]]];
%t a[n_] := a[n] = Module[{a = 0, l, L}, For[l = 2^n, l <= 2^(n + 1) - 1, l++, L = A278614T[l]; a = a + L[[1]] + L[[2]] + L[[3]]]; a];
%t Table[Print["a(", n, ") = ", a[n]]; a[n], {n, 0, 19}] (* _Jean-François Alcover_, Nov 20 2017, after _R. J. Mathar_ *)
%Y Cf. A278612, A278613, A278615, A278616.
%K nonn,more
%O 0,1
%A _Ilya Amburg_, Nov 23 2016
%E More terms from _R. J. Mathar_, Dec 02 2016
|
