|
%I #12 Jul 08 2017 12:47:34
%S 1,2,6,10,14,19,25,31,38,46,54,62,71,81,91,101,112,123,135,147,159,
%T 172,185,199,213,228,242,258,273,289,305,322,339,356,374,392,410,429,
%U 448,467,487,507,527,548,569,590,612,633,656,678,701,724,747,771,795,819,844,869,894
%N a(n) = floor(floor(n^(5/2))^(2/3)).
%H G. C. Greubel, <a href="/A185548/b185548.txt">Table of n, a(n) for n = 1..5000</a>
%F a(n) = floor(floor(n^(5/2))^(2/3)).
%t f[n_]=Floor[Floor[n^(5/2)]^(2/3)];
%t t1=Table[f[n],{n,1,90}];t1
%o (PARI) for(n=1,50, print1(floor(floor(n^(5/2))^(2/3)), ", ")) \\ _G. C. Greubel_, Jul 08 2017
%o (PARI) a(n) = sqrtnint(sqrtnint(n^5, 2)^2, 3); \\ _Michel Marcus_, Jul 08 2017
%K nonn
%O 1,2
%A _Clark Kimberling_, Jan 30 2011
|
