This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A134519 #33 Oct 13 2024 14:30:29
%S A134519 1,2,3,4,6,7,10,11,15,16,21,22,28,29,36,37,45,46,55,56,66,67,78,79,91,
%T A134519 92,105,106,120,121,136,137,153,154,171,172,190,191,210,211,231,232,
%U A134519 253,254,276,277,300,301,325,326,351,352,378,379,406,407,435,436,465,466
%N A134519 Numbers remaining when the natural numbers (A000027) are arranged into a triangle and only the beginning and end terms of each row are retained.
%C A134519 Equivalently, this is TriRet(A000027,{1}) = TriRem(A000027,{2,3,4,...}), using the operations defined in A134509. Bisections are A000217-{0} and A000124-{1}. A055802 and A114220 appear to be this sequence with two and three additional leading terms, respectively.
%H A134519 Muniru A Asiru, <a href="/A134519/b134519.txt">Table of n, a(n) for n = 1..10000</a>
%H A134519 Bruno Berselli, <a href="/A134519/a134519.jpg">An interpretation of initial terms</a>.
%H A134519 <a href="/index/Rec#order_05">Index entries for linear recurrences with constant coefficients</a>, signature (1,2,-2,-1,1).
%F A134519 From _Colin Barker_, Jul 17 2013: (Start)
%F A134519 a(n) = (16 + 4*n + 2*n^2)/16 for n even, a(n) = (3 + 4*n + n^2)/8 for n odd.
%F A134519 G.f.: -x*(x^4 - x^3 - x^2 + x + 1) / ((x - 1)^3*(x + 1)^2). (End)
%F A134519 a(n) = Sum_{k=0..n-1} A057979(k). - _Jon Maiga_, Dec 21 2018
%F A134519 a(n) = A000217(floor(n+1)/2) + (1 + (-1)^n)/2. - _Bruno Berselli_, Aug 20 2019
%p A134519 seq(coeff(series(-x*(x^4-x^3-x^2+x+1)/((x-1)^3*(x+1)^2),x,n+1), x, n), n = 1 .. 60); # _Muniru A Asiru_, Dec 21 2018
%t A134519 Table[Sum[If[EvenQ[k], 1, (k - 1)/2], {k, 0, n}], {n, 60}] (* _Jon Maiga_, Dec 21 2018 *)
%t A134519 LinearRecurrence[{1,2,-2,-1,1},{1,2,3,4,6},60] (* _Harvey P. Dale_, Oct 13 2024 *)
%o A134519 (GAP) a:=[];; for n in [1..60] do if n mod 2=0 then Add(a,(16+4*n+2*n^2)/16); else Add(a,(3+4*n+n^2)/8); fi; od; a; # _Muniru A Asiru_, Dec 21 2018
%o A134519 (Magma) T:=func<i | i*(i+1)/2>; [T(Floor((n+1)/2))+(1+(-1)^n)/2: n in [1..60]]; // _Bruno Berselli_, Aug 20 2019
%Y A134519 Cf. A000027, A000124, A000217, A055802, A057979, A114220, A134509.
%Y A134519 Cf. A084263: A000217(m) + (1 + (-1)^m)/2.
%Y A134519 Cf. A117142: A000217(floor(m/2)+1) - (1 + (-1)^m)/2.
%K A134519 nonn,easy
%O A134519 1,2
%A A134519 _Rick L. Shepherd_, Oct 29 2007