|
%I #16 Jul 04 2023 15:45:20
%S 0,1,3,6,8,12,15,19,23,27,32,37,42,47,53,59,64,71,77,83,90,97,104,111,
%T 118,125,133,141,149,157,165,173,182,190,199,208,216,226,235,244,253,
%U 263,273,282,292,302,312,323,333,343,354,365,375,386,397,408,420,431,442,454,465,477,489
%N a(n) = ceiling(n^(3/2)); complement of A185550.
%H Reinhard Zumkeller, <a href="/A185549/b185549.txt">Table of n, a(n) for n = 0..10000</a>
%F a(n) = ceiling(n^(3/2)).
%t f[n_]=Ceiling[n^(3/2)];
%t t1=Table[f[n],{n,1,90}];t1 (* A185549 *)
%t t2=Complement[Range[150], Table[f[n],{n,1,80}]];t2 (* A185550 *)
%t Ceiling[Sqrt[Range[0,70]^3]] (* _Harvey P. Dale_, Jul 04 2023 *)
%o (Haskell)
%o a185549 = ceiling . (** (3 / 2)) . fromIntegral
%o -- _Reinhard Zumkeller_, Jul 24 2015
%o (PARI) for(n=0,50, print1(ceil(n^(3/2)), ", ")) \\ _G. C. Greubel_, Jul 08 2017
%Y Cf. A000093, A185550.
%Y Cf. A144968 (first differences).
%K nonn
%O 0,3
%A _Clark Kimberling_, Jan 30 2011
%E Initial a(0)=0 prepended and offset adjusted by _Reinhard Zumkeller_, Jul 24 2015
|
