%I #12 Jul 08 2017 03:16:15
%S 1,2,4,5,7,9,11,13,15,18,20,23,26,29,32,35,38,41,44,48,51,55,58,62,66,
%T 70,74,78,82,86,90,94,99,103,108,112,117,121,126,131,136,140,145,150,
%U 155,161,166,171,176,182,187,192,198,203,209,215,220,226,232,238,244,250
%N a(n) = floor((1/2)*(n+1)^(3/2)); complement of A185547.
%H G. C. Greubel, <a href="/A185546/b185546.txt">Table of n, a(n) for n = 1..5000</a>
%F a(n) = floor((1/2)*(n+1)^(3/2)).
%t f[n_] = Floor[(1/2)*(n+1)^(3/2)];
%t t1=Table[f[n],{n,1,90}];t1 (* A185546 *)
%t t2=Complement[Range[200], Table[f[n],{n,1,80}]];t2 (* 185547 *)
%o (PARI) for(n=1,50, print1(floor((1/2)*(n+1)^(3/2)), ", ")) \\ _G. C. Greubel_, Jul 07 2017
%Y Cf. A185547.
%K nonn
%O 1,2
%A _Clark Kimberling_, Jan 30 2011
|