A184743 a(n) = floor(n*s + h - h*s), where s = sqrt(Pi)/(sqrt(Pi)-1), h = -1/2; complement of A184742.

2, 5, 7, 9, 12, 14, 16, 19, 21, 23, 25, 28, 30, 32, 35, 37, 39, 41, 44, 46, 48, 51, 53, 55, 58, 60, 62, 64, 67, 69, 71, 74, 76, 78, 80, 83, 85, 87, 90, 92, 94, 97, 99, 101, 103, 106, 108, 110, 113, 115, 117, 119, 122, 124, 126, 129, 131, 133, 136, 138, 140, 142, 145, 147, 149, 152, 154, 156, 158, 161, 163, 165, 168, 170, 172, 175, 177, 179

Offset

1,1

Links

G. C. Greubel, Table of n, a(n) for n = 1..5000

Formula

a(n) = floor(n*s + h - h*s), where s = sqrt(Pi)/(sqrt(Pi)-1), h = -1/2.

Mathematica

r=Pi^(1/2); h=-1/2; s=r/(r-1);
Table[Floor[n*r+h], {n, 1, 120}]  (* A184242 *)
Table[Floor[n*s+h-h*s], {n, 1, 120}]  (* A184243 *)

Prog

(PARI) for(n=1, 25, print1(floor((n+1/2)*(sqrt(Pi)/(sqrt(Pi) - 1)) - 1/2), ", ")) \\ G. C. Greubel, Jan 09 2017

Crossrefs

Cf. A184742.

Sequence in context: A024671 A246706 A304498 * A184749 A047386 A187416

Adjacent sequences: A184740 A184741 A184742 * A184744 A184745 A184746

Keyword

nonn

Author

Clark Kimberling, Jan 20 2011

Status

approved