cp's OEIS Frontend

A185550 Numbers not of the form ceiling(n^(3/2)); complement of A185549.

%I A185550 #11 Sep 10 2024 00:25:05
%S A185550 2,4,5,7,9,10,11,13,14,16,17,18,20,21,22,24,25,26,28,29,30,31,33,34,
%T A185550 35,36,38,39,40,41,43,44,45,46,48,49,50,51,52,54,55,56,57,58,60,61,62,
%U A185550 63,65,66,67,68,69,70,72,73,74,75,76,78,79,80,81,82,84,85,86,87,88,89,91,92,93,94,95,96,98,99,100,101,102,103,105,106,107,108,109,110,112,113,114,115,116,117,119,120,121,122,123,124,126,127,128,129,130,131,132,134,135,136,137,138,139,140,142,143,144,145,146,147,148,150
%N A185550 Numbers not of the form ceiling(n^(3/2)); complement of A185549.
%H A185550 Reinhard Zumkeller, <a href="/A185550/b185550.txt">Table of n, a(n) for n = 1..10000</a>
%t A185550 f[n_]=Ceiling[n^(3/2)];
%t A185550 t1=Table[f[n],{n,1,90}];t1  (* A185549 *)
%t A185550 t2=Complement[Range[150], Table[f[n],{n,1,80}]];t2  (* A185550 *)
%o A185550 (Haskell)
%o A185550 import Data.List.Ordered (minus)
%o A185550 a185550 n = a185550_list !! (n-1)
%o A185550 a185550_list = [0..] `minus` a185549_list
%o A185550 -- _Reinhard Zumkeller_, Jul 24 2015
%o A185550 (Python)
%o A185550 from sympy import integer_nthroot
%o A185550 def A185550(n):
%o A185550     def f(x): return n+integer_nthroot(x**2,3)[0]
%o A185550     def iterfun(f,n=0):
%o A185550         m, k = n, f(n)
%o A185550         while m != k: m, k = k, f(k)
%o A185550         return m
%o A185550     return iterfun(f,n) # _Chai Wah Wu_, Sep 09 2024
%Y A185550 Cf. A185549, A185543.
%K A185550 nonn
%O A185550 1,1
%A A185550 _Clark Kimberling_, Jan 30 2011