A184008 n+floor(sqrt(7n/3)); complement of A184009.

2, 4, 5, 7, 8, 9, 11, 12, 13, 14, 16, 17, 18, 19, 20, 22, 23, 24, 25, 26, 28, 29, 30, 31, 32, 33, 34, 36, 37, 38, 39, 40, 41, 42, 44, 45, 46, 47, 48, 49, 50, 51, 53, 54, 55, 56, 57, 58, 59, 60, 61, 63, 64, 65, 66, 67, 68, 69, 70, 71, 72, 74, 75, 76, 77, 78, 79, 80, 81, 82, 83, 84, 86, 87, 88, 89, 90, 91, 92, 93, 94, 95, 96, 98, 99, 100, 101, 102, 103, 104, 105, 106, 107, 108, 109, 110, 112, 113, 114, 115

Offset

1,1

Links

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

Mathematica

a=7/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[(7n)/3]], {n, 100}] (* Harvey P. Dale, Jan 21 2025 *)

Crossrefs

Cf. A184009.

Sequence in context: A354482 A253723 A014132 * A183862 A254058 A346128

Adjacent sequences: A184005 A184006 A184007 * A184009 A184010 A184011

Keyword

nonn,easy

Author

Clark Kimberling, Jan 08 2011

Status

approved