|
%I #9 Jul 08 2017 13:12:51
%S 1,2,4,6,9,12,15,18,22,26,30,35,40,44,49,54,59,65,71,77,83,89,95,101,
%T 108,115,122,129,136,144,151,159,167,174,182,190,198,206,215,224,232,
%U 241,250,259,269,278,287,296,306,315,325,335,345,356,366,376,387,397,408,419,430,440,451,462,473,484,496,507,519,530,542,554,566,578,590,602,615,627
%N a(n) = floor(n^(3/2))-floor(n^(1/2))-n; complement of A185602.
%H G. C. Greubel, <a href="/A185601/b185601.txt">Table of n, a(n) for n = 3..5000</a>
%t Table[Floor[n^(3/2)]-Floor[n^(1/2)]-n, {n,3,80}]
%o (PARI) for(n=3,50, print1(floor(n^(3/2))-floor(n^(1/2))-n, ", ")) \\ _G. C. Greubel_, Jul 08 2017
%Y Cf. A185599, A185600, A185602.
%K nonn
%O 3,2
%A _Clark Kimberling_, Jan 31 2011
|
