A183293 - OEIS

A183293

Complement of A056000.

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

(list; graph; refs; listen; history; text; internal format)

OFFSET

1,2

LINKS

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

FORMULA

(See the Mathematica code.)

MATHEMATICA

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)];