A185549 a(n) = ceiling(n^(3/2)); complement of A185550.

0, 1, 3, 6, 8, 12, 15, 19, 23, 27, 32, 37, 42, 47, 53, 59, 64, 71, 77, 83, 90, 97, 104, 111, 118, 125, 133, 141, 149, 157, 165, 173, 182, 190, 199, 208, 216, 226, 235, 244, 253, 263, 273, 282, 292, 302, 312, 323, 333, 343, 354, 365, 375, 386, 397, 408, 420, 431, 442, 454, 465, 477, 489

Offset

0,3

Links

Reinhard Zumkeller, Table of n, a(n) for n = 0..10000

Formula

a(n) = ceiling(n^(3/2)).

Mathematica

f[n_]=Ceiling[n^(3/2)];
t1=Table[f[n], {n, 1, 90}]; t1  (* A185549 *)
t2=Complement[Range[150], Table[f[n], {n, 1, 80}]]; t2  (* A185550 *)
Ceiling[Sqrt[Range[0, 70]^3]] (* Harvey P. Dale, Jul 04 2023 *)

Prog

(Haskell)
a185549 = ceiling . (** (3 / 2)) . fromIntegral
-- Reinhard Zumkeller, Jul 24 2015
(PARI) for(n=0, 50, print1(ceil(n^(3/2)), ", ")) \\ G. C. Greubel, Jul 08 2017

Crossrefs

Cf. A000093, A185550.

Cf. A144968 (first differences).

Sequence in context: A298793 A077024 A338722 * A185597 A082873 A182727

Adjacent sequences: A185546 A185547 A185548 * A185550 A185551 A185552

Keyword

nonn

Author

Clark Kimberling, Jan 30 2011

Extensions

Initial a(0)=0 prepended and offset adjusted by Reinhard Zumkeller, Jul 24 2015

Status

approved