A184015 n-1+ceiling(n^2/e); complement of A184014.

1, 3, 6, 9, 14, 19, 25, 31, 38, 46, 55, 64, 75, 86, 97, 110, 123, 137, 151, 167, 183, 200, 217, 235, 254, 274, 295, 316, 338, 361, 384, 408, 433, 459, 485, 512, 540, 569, 598, 628, 659, 690, 723, 756, 789, 824, 859, 895, 932, 969, 1007, 1046, 1086, 1126, 1167, 1209, 1252, 1295, 1339, 1384, 1429, 1476, 1523, 1570, 1619, 1668, 1718, 1769, 1820, 1872, 1925, 1979, 2033, 2088, 2144, 2200, 2258, 2316, 2374, 2434

Offset

1,2

Links

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

Formula

a(n) = n-1+ceiling(n^2/e)

Mathematica

a=E; b=0;
Table[n+Floor[(a*n+b)^(1/2)], {n, 120}]
Table[n-1+Ceiling[(n*n-b)/a], {n, 80}]

Crossrefs

Cf. A184014.

Sequence in context: A228172 A130473 A261229 * A225282 A242771 A310169

Adjacent sequences: A184012 A184013 A184014 * A184016 A184017 A184018

Keyword

nonn,easy

Author

Clark Kimberling, Jan 09 2011

Status

approved