login
a(n) = a(n-2) + a(n-3) - floor(a(n-3)/2) - floor(a(n-4)/2).
1

%I #21 Jul 30 2023 16:26:45

%S 1,1,1,2,2,3,3,3,4,4,5,5,5,6,6,7,7,7,8,8,9,9,9,10,10,11,11,11,12,12,

%T 13,13,13,14,14,15,15,15,16,16,17,17,17,18,18,19,19,19,20,20,21,21,21,

%U 22,22,23,23,23,24,24,25,25,25,26,26,27,27,27,28,28

%N a(n) = a(n-2) + a(n-3) - floor(a(n-3)/2) - floor(a(n-4)/2).

%C Instead of the Fibonacci sequence this has the base Padovan sequence.

%C The a(n+1)/a(n) ratio approaches one.

%H <a href="/index/Rec#order_06">Index entries for linear recurrences with constant coefficients</a>, signature (1,0,0,0,1,-1).

%F a(n) = a(n-2)+a(n-3)-floor(a(n-3)/2)-floor(a(n-4)/2).

%F Empirical g.f.: (x^3+1) / (x^6-x^5-x+1) = (x+1)*(x^2-x+1) / ((x-1)^2*(x^4+x^3+x^2+x+1)). - _Colin Barker_, Mar 23 2013

%F From _Wesley Ivan Hurt_, Mar 15 2015: (Start)

%F a(n) = a(n-1) + a(n-5) - a(n-6).

%F a(n) = floor( (2n+5)/5 ). (End)

%p A173276:=n->floor((2*n+5)/5): seq(A173276(n), n=0..50); # _Wesley Ivan Hurt_, Mar 15 2015

%t f[-2] = 0; f[-1] = 0; f[0] = 1; f[1] = 1;

%t f[n_] := f[n] = f[n - 2] + f[n - 3] - Floor[f[n - 3]/2] - Floor[f[n - 4]/2]

%t Table[f[n], {n, 0, 50}]

%t nxt[{a_,b_,c_,d_}]:={b,c,d,c+b-Floor[b/2]-Floor[a/2]}; NestList[nxt,{1,1,1,2},70][[;;,1]] (* _Harvey P. Dale_, Jul 30 2023 *)

%o (Magma) [Floor((2*n+5)/5) : n in [0..50]]; // _Wesley Ivan Hurt_, Mar 15 2015

%o (PARI) vector(100,n,(2*n+3)\5) \\ _Derek Orr_, Mar 21 2015

%Y Cf. A000931 (Padovan), A085269.

%K nonn,easy

%O 0,4

%A _Roger L. Bagula_, Nov 22 2010