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

Author

Clark Kimberling, Jan 09 2011

Keywords

• nonn
• easy

Crossrefs

Cf. A184103.

Programs

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 *)

Formula

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