|
%I #12 Dec 15 2017 17:34:48
%S 0,1,2,2,6,4,5,5,12,7,8,8,18,10,11,11,24,13,14,14,30,16,17,17,36,19,
%T 20,20,42,22,23,23,48,25,26,26,54,28,29,29,60,31,32,32,66,34,35,35,72,
%U 37,38,38,78,40,41,41,84,43,44,44,90,46,47,47,96,49,50,50,102,52,53,53
%N Nearest integer to 3n/4 unless that is an integer, when 3n/2.
%H <a href="/index/Rec#order_08">Index entries for linear recurrences with constant coefficients</a>, signature (0,0,0,2,0,0,0,-1).
%F G.f.: [x(1+2x+2x^2+6x^3+2x^4+x^5+x^6]/[(1-x)^2(1+x)^2(1+x^2)^2].
%p A028390 := proc(n) if 3*n mod 4 = 0 then 3*n/2 else round(3*n/4); fi; end;
%o (PARI) a(n)=if(Mod(3*n,4) == 0,(3*n/2),round(3*n/4)); vector(100,n,a(n))
%K nonn,easy
%O 0,3
%A _J. H. Conway_
%E More terms from _Jason Earls_, Jul 13 2001
|
