OFFSET
1,1
COMMENTS
Complement of A183859.
LINKS
Harvey P. Dale, Table of n, a(n) for n = 1..1000
MATHEMATICA
a=3; 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[Sqrt[3n]], {n, 100}] (* Harvey P. Dale, Jul 07 2024 *)
PROG
(PARI) a(n)=n+sqrtint(3*n)
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Clark Kimberling, Jan 07 2011
EXTENSIONS
Corrected by Charles R Greathouse IV, Jan 19 2011
STATUS
approved