|
|
A028390
|
|
Nearest integer to 3n/4 unless that is an integer, when 3n/2.
|
|
1
|
|
|
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, 20, 20, 42, 22, 23, 23, 48, 25, 26, 26, 54, 28, 29, 29, 60, 31, 32, 32, 66, 34, 35, 35, 72, 37, 38, 38, 78, 40, 41, 41, 84, 43, 44, 44, 90, 46, 47, 47, 96, 49, 50, 50, 102, 52, 53, 53
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
0,3
|
|
LINKS
|
|
|
FORMULA
|
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].
|
|
MAPLE
|
A028390 := proc(n) if 3*n mod 4 = 0 then 3*n/2 else round(3*n/4); fi; end;
|
|
PROG
|
(PARI) a(n)=if(Mod(3*n, 4) == 0, (3*n/2), round(3*n/4)); vector(100, n, a(n))
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,easy
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|