%I #39 Aug 24 2024 22:43:42
%S 1,2,4,6,9,13,17,22,28,34,41,49,57,66,76,86,97,109,121,134,148,162,
%T 177,193,209,226,244,262,281,301,321,342,364,386,409,433,457,482,508,
%U 534,561,589,617,646,676,706,737,769,801,834,868,902,937,973,1009,1046,1084
%N Row 0 of the order array of 3/2, i.e., row 0 of the transposable dispersion in A087465.
%C Also, column 0 of the transposable dispersion in A087468.
%H Vincenzo Librandi, <a href="/A087483/b087483.txt">Table of n, a(n) for n = 0..10000</a>
%H Clark Kimberling and John E. Brown, <a href="https://cs.uwaterloo.ca/journals/JIS/VOL7/Kimberling/kimber67.html">Partial Complements and Transposable Dispersions</a>, J. Integer Seqs. 7 (2004), article 04.1.6.
%H <a href="/index/Rec#order_05">Index entries for linear recurrences with constant coefficients</a>, signature (2,-1,1,-2,1).
%F a(n) = n + 1 - floor(n/3) + Sum_{i=1..n} floor(2i/3).
%F a(n) = 1 + floor((n+1)^2/3) = 1 + A000212(n+1).
%F a(n) = A192735(n+2) / (n+2). - _Reinhard Zumkeller_, Jul 08 2011
%F G.f.: -(x^4-x^3+x^2+1) / ((x-1)^3*(x^2+x+1)). - _Colin Barker_, Mar 31 2013
%p A087483 := proc(n)
%p 1+floor((n+1)^2/3) ;
%p end proc:
%p seq(A087483(n),n=0..10) ; # _R. J. Mathar_, Aug 10 2017
%t LinearRecurrence[{2, -1, 1, -2, 1}, {1, 2, 4, 6, 9}, 100] (* _Jean-François Alcover_, Mar 29 2020 *)
%Y Cf. A053799, A087465, A087468.
%K nonn,easy
%O 0,2
%A _Clark Kimberling_, Sep 09 2003
%E Edited by _Max Alekseyev_, Dec 05 2013