|
%I #17 Jul 10 2017 03:59:51
%S 1,2,3,5,7,9,11,13,15,17,20,22,24,27,29,32,34,37,39,42,44,47,50,53,55,
%T 58,61,64,67,70,73,76,79,82,85,88,91,94,97,100,103,106,110,113,116,
%U 119,123,126,129,132,136,139,143,146,149,153,156,160,163,166,170,173
%N a(n) = floor(floor(n^(5/2))^(1/2)); complement of A185604.
%H G. C. Greubel, <a href="/A185603/b185603.txt">Table of n, a(n) for n = 1..5000</a>
%t Table[Floor[Floor[n^(5/2)]^(1/2)], {n,1,120}]
%o (PARI) for(n=1,50, print1(floor(floor(n^(5/2))^(1/2)), ", ")) \\ _G. C. Greubel_, Jul 09 2017
%o (PARI) a(n) = sqrtint(sqrtnint(n^5, 2)); \\ _Michel Marcus_, Jul 10 2017
%Y Cf. A185604.
%K nonn,easy
%O 1,2
%A _Clark Kimberling_, Jan 31 2011
|
