|
%I #46 Mar 02 2023 11:25:54
%S 0,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,
%T 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,
%U 2,2,2,2,2,2,2,2,2,2,2,2,2,3,3,3,3,3,3
%N Integer part of fourth root of n.
%C n appears (n+1)^4 - n^4 times (A005917).
%H Bruno Berselli, <a href="/A255270/b255270.txt">Table of n, a(n) for n = 0..1000</a>
%F a(n) = floor(n^(1/4)) = floor(sqrt(A000196(n))).
%F G.f.: Sum_{k>=1} x^(k^4)/(1 - x). - _Ilya Gutkovskiy_, Dec 22 2016
%F a(n) = Sum_{i=1..n} A219009(i)*floor(n/i). - _Ridouane Oudra_, Feb 26 2023
%p A255270 := proc(n)
%p floor( n^(1/4)) ;
%p end proc:
%p seq(A255270(n),n=0..100) ; # _R. J. Mathar_, May 08 2020
%t Floor[Range[0, 100]^(1/4)]
%o (PARI) vector(100, n, n--; floor(n^(1/4)))
%o (PARI) a(n) = sqrtnint(n, 4); \\ _Michel Marcus_, Dec 22 2016
%o (Sage) [floor(n^(1/4)) for n in (0..100)]
%o (Magma) [IsZero(n) select 0 else Iroot(n, 4): n in [0..100]];
%o (Magma) [Floor(n^(1/4)): n in [0..100]]; // _Vincenzo Librandi_, Feb 20 2015
%Y Cf. A005917.
%Y Cf. sequences of the type floor(n^(1/k)): A000196 (k=2), A048766 (k=3), this sequence (k=4), A178487 (k=5), A178489 (k=6).
%Y Cf. A219009.
%K nonn,easy
%O 0,17
%A _Bruno Berselli_, Feb 20 2015
|
