|
%I #15 Jul 08 2017 13:12:18
%S 0,1,3,6,8,12,15,19,24,28,33,38,43,48,54,60,65,72,78,84,91,98,105,112,
%T 120,127,135,142,150,158,167,175,183,192,201,210,218,228,237,246,256,
%U 265,275,285,295,305,315,325,336,346,357,367,378,389,400,411,422,434,445,457,468,480,492,504,515,528,540,552,564,577
%N a(n) = floor(n^(3/2) - n^(1/2)); complement of A185598.
%H G. C. Greubel, <a href="/A185597/b185597.txt">Table of n, a(n) for n = 1..5000</a>
%p A185597 := proc(n) floor(sqrt(n)*(n-1)) ; end proc: # _R. J. Mathar_, Feb 01 2011
%t Table[Floor[n^(3/2)-n^(1/2)], {n,1,120}]
%o (PARI) for(n=1,50, print1(floor(n^(3/2)-n^(1/2)), ", ")) \\ _G. C. Greubel_, Jul 08 2017
%Y Cf. A185598.
%K nonn,easy
%O 1,3
%A _Clark Kimberling_, Jan 31 2011
|
