A184111 a(n) = n + floor(4*sqrt(n-1)); complement of A184112.

1, 6, 8, 10, 13, 14, 16, 18, 20, 22, 23, 25, 26, 28, 29, 31, 33, 34, 35, 37, 38, 40, 41, 43, 44, 46, 47, 48, 50, 51, 52, 54, 55, 56, 58, 59, 61, 62, 63, 64, 66, 67, 68, 70, 71, 72, 74, 75, 76, 78, 79, 80, 81, 83, 84, 85, 86, 88, 89, 90, 91, 93, 94, 95, 97, 98, 99, 100, 101, 103, 104, 105, 106, 108, 109, 110, 111, 113, 114, 115, 116, 118, 119, 120, 121, 122, 124, 125, 126, 127, 128, 130, 131, 132, 133, 134, 136, 137, 138, 139

Offset

1,2

Links

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

Mathematica

a=16; b=-16;
Table[n+Floor[(a*n+b)^(1/2)], {n, 100}]
Table[n-1+Ceiling[(n^2-b)/a], {n, 90}]

Crossrefs

Cf. A184112.

Sequence in context: A295318 A343569 A331549 * A330976 A181764 A153032

Adjacent sequences: A184108 A184109 A184110 * A184112 A184113 A184114

Keyword

nonn,easy

Author

Clark Kimberling, Jan 09 2011

Status

approved