A183295 Complement of A115067.

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

Offset

1,2

Links

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

Formula

(See the Mathematica code.)

Mathematica

  a=3/2; b=5/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

Cf. A115067.

Sequence in context: A206027 A039222 A340745 * A029927 A047334 A032775

Adjacent sequences: A183292 A183293 A183294 * A183296 A183297 A183298

Keyword

nonn

Author

Clark Kimberling, Jan 03 2011

Status

approved