cp's OEIS Frontend

A173894 a(n) = ceiling(A029826(n)/2).

%I A173894 #21 Apr 24 2021 03:33:37
%S A173894 1,0,1,0,0,1,0,1,0,1,1,1,1,1,1,1,2,1,2,2,3,3,3,4,4,5,6,7,8,10,11,14,
%T A173894 16,19,22,25,31,35,42,49,58,68,80,94,110,130,152,180,210,248,292,343,
%U A173894 404,474,558,656,772,908,1068,1256,1478,1738,2045,2406,2829,3328,3914,4605,5416,6371,7494,8815,10369,12197,14347
%N A173894 a(n) = ceiling(A029826(n)/2).
%H A173894 G. C. Greubel, <a href="/A173894/b173894.txt">Table of n, a(n) for n = 0..1000</a>
%H A173894 <a href="/index/Rec#order_41">Index entries for linear recurrences with constant coefficients</a>, signature (-1,0,1,1,1,1,1,0,-1,-1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,0,-1,-1,-1,-1,-1,0,1,1).
%F A173894 a(n) = ceiling(A029826(n)/2) = A029826(n) - floor(A029826(n)/2).
%t A173894 A029826 = CoefficientList[Series[1/(1+x-x^3-x^4-x^5-x^6-x^7+x^9+x^10), {x, 0, 250}], x];
%t A173894 Table[Ceiling[A029826[[n+1]]/2], {n, 0, 100}] (* modified by _G. C. Greubel_, Apr 23 2021 *)
%o A173894 (Magma)
%o A173894 R<x>:= PowerSeriesRing(Integers(), 105);
%o A173894 A029826:= Coefficients(R!( 1/(1+x-x^3-x^4-x^5-x^6-x^7+x^9+x^10) ));
%o A173894 A173894:= func< n | Ceiling( A029826[n+1]/2 ) >;
%o A173894 [A173894(n): n in [0..100]]; // _G. C. Greubel_, Apr 23 2021
%o A173894 (Sage)
%o A173894 A029826=[( 1/(1+x-x^3-x^4-x^5-x^6-x^7+x^9+x^10) ).series(x,n+1).list()[n] for n in (0..100)]
%o A173894 def A173894(n): return ceil( A029826[n]/2 )
%o A173894 [A173894(n) for n in (0..100)] # _G. C. Greubel_, Apr 23 2021
%Y A173894 Cf. A029826.
%K A173894 nonn,easy
%O A173894 0,17
%A A173894 _Roger L. Bagula_, Nov 26 2010