1,2

Table of n, a(n) for n=1..80.

(See the Mathematica code.)

a=1/2; b=9/2;

F[n_]:=a*n^2+b*n;

R[n_]:=(n/a+((b-1)/(2a))^2)^(1/2);

G[n_]:=n-1+Ceiling[R[n]-(b-1)/(2a)];

Table[F[n], {n, 60}]

Table[G[n], {n, 100}]

Cf. A056000.

Sequence in context: A175970 A286689 A278373 * A184524 A047226 A059537

Adjacent sequences: A183290 A183291 A183292 * A183294 A183295 A183296

nonn

Clark Kimberling, Jan 03 2011

approved