A183297 Complement of A005475.

1, 2, 4, 5, 6, 7, 8, 9, 10, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 43, 44, 45, 46, 47, 48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63, 64, 66, 67, 68, 69, 70, 71, 72, 73, 74, 75, 76, 77, 78, 79, 80, 81, 82, 83, 84, 85

Offset

1,2

Links

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

Formula

(See the Mathematic code.)

Mathematica

  a=5/2; b=1/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}]

Crossrefs

Sequence in context: A052405 A039212 A039221 * A047573 A374486 A039246

Adjacent sequences: A183294 A183295 A183296 * A183298 A183299 A183300

Keyword

nonn

Author

Clark Kimberling, Jan 03 2011

Status

approved