%I #6 Dec 14 2016 08:30:30
%S -1,0,1,3,7,8,13,17,18,21,30,35,37,47,58,59,70,73,87,94,113,121,134,
%T 139,166,189,211,221,251,259,271,304,339,389,410,419,461,474,479,553,
%U 621,640,705,740,741,835,856,868,899,991,996,1109,1120,1264,1327,1339
%N Record values of A156140 (accumulation of Stern's diatomic series).
%H Charles R Greathouse IV, <a href="/A279517/b279517.txt">Table of n, a(n) for n = 1..512</a>
%F a(n) = A156140(A279516(n)).
%o (PARI) r=0; v=List([-1,0]); u=["",-1,0]; for(n=2,1e10, u=[u[2],u[3],(2*valuation(n-1, 2)+1)*u[3] - u[2]]; if(u[3]>r, r=u[3]; listput(v,t); print("a("#v") = "t", ")))
%Y Cf. A156140, A279516, A002487, A007814.
%K sign
%O 1,4
%A _Charles R Greathouse IV_, Dec 13 2016