A184102 n+floor(4*sqrt(n)); complement of A184103.

5, 7, 9, 12, 13, 15, 17, 19, 21, 22, 24, 25, 27, 28, 30, 32, 33, 34, 36, 37, 39, 40, 42, 43, 45, 46, 47, 49, 50, 51, 53, 54, 55, 57, 58, 60, 61, 62, 63, 65, 66, 67, 69, 70, 71, 73, 74, 75, 77, 78, 79, 80, 82, 83, 84, 85, 87, 88, 89, 90, 92, 93, 94, 96, 97, 98, 99, 100, 102, 103, 104, 105, 107, 108, 109, 110, 112, 113, 114, 115, 117, 118, 119, 120, 121, 123, 124, 125, 126, 127, 129, 130, 131, 132, 133, 135, 136, 137, 138, 140

Offset

1,1

Links

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

Formula

a(n)=n+floor(4*sqrt(n)).

Mathematica

a=16; b=0;
Table[n+Floor[(a*n+b)^(1/2)], {n, 100}]
Table[n-1+Ceiling[(n*n-b)/a], {n, 80}]
Table[n+Floor[4Sqrt[n]], {n, 100}] (* Harvey P. Dale, Jun 21 2015 *)

Crossrefs

Cf. A184103.

Sequence in context: A029664 A188793 A343525 * A285915 A075329 A177031

Adjacent sequences: A184099 A184100 A184101 * A184103 A184104 A184105

Keyword

nonn,easy

Author

Clark Kimberling, Jan 09 2011

Status

approved