|
|
A227353
|
|
Number of lattice points in the closed region bounded by the graphs of y = 3*x/5, x = n, and y = 0, excluding points on the x-axis.
|
|
2
|
|
|
0, 1, 2, 4, 7, 10, 14, 18, 23, 29, 35, 42, 49, 57, 66, 75, 85, 95, 106, 118, 130, 143, 156, 170, 185, 200, 216, 232, 249, 267, 285, 304, 323, 343, 364, 385, 407, 429, 452, 476, 500, 525, 550, 576, 603, 630, 658, 686, 715, 745, 775, 806, 837, 869, 902, 935
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,3
|
|
COMMENTS
|
|
|
LINKS
|
|
|
FORMULA
|
a(n) = 2*a(n-1) - a(n-2) + a(n-5) - 2*a(n-6) + a(n-7).
G.f.: (x*(1 + x^2 + x^3))/((1 - x)^3*(1 + x + x^2 + x^3 + x^4)).
According to Wolfram Alpha, a(n) = floor(Re(E(n^2|Pi))) where E(x|m) is the incomplete elliptic integral of the second kind. - Kritsada Moomuang, Jan 28 2022
a(n) = floor(n*(3*n-1)/10). - Kevin Ryde, Mar 15 2022
|
|
EXAMPLE
|
a(1) = floor(3/5) = 0; a(2) = floor(6/5) = 1; a(3) = a(2) + floor(9/5) = 2; a(4) = a(3) + floor(12/5) = 4.
|
|
MATHEMATICA
|
z = 150; r = 3/5; k = 1; a[n_] := Sum[Floor[r*x^k], {x, 1, n}]; t = Table[a[n], {n, 1, z}]
|
|
PROG
|
(PARI) a(n) = (3*n^2-n)\10; \\ Kevin Ryde, Mar 15 2022
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,easy
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|