login
A185549
a(n) = ceiling(n^(3/2)); complement of A185550.
4
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
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. A144968 (first differences).
Sequence in context: A298793 A077024 A338722 * A185597 A082873 A182727
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