|
%I #12 Dec 22 2016 22:09:21
%S 0,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,
%T 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,2,2,2,2,
%U 2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2
%N a(n) = floor(n^(1/6)): integer part of sixth root of n.
%F G.f.: Sum_{k>=1} x^(k^6)/(1 - x). - _Ilya Gutkovskiy_, Dec 22 2016
%t Floor[Power[Range[0,110], (6)^-1]] (* _Harvey P. Dale_, Jul 18 2011 *)
%o (PARI) A178489(n)=floor(sqrtn(n+.5,6))
%o (PARI) a(n) = sqrtnint(n, 6); \\ _Michel Marcus_, Dec 22 2016
%Y Cf. A000196, A048766, A178487.
%K easy,nonn
%O 0,65
%A _M. F. Hasler_, Oct 09 2010
|
