|
%I
%S 2,8,27,64,125,216,343,512,729,1000,1331,1728,2197,2744,3375,4096,
%T 4913,5832,6859,8000,9261,10648,12167,13824,15625,17576,19683,21952,
%U 24389,27000,29791,32768,35937,39304,42875,46656,50653,54872,59319,64000,68921,74088,79507,85184,91125,97336,103823,110592,117649,125000,132651,140608,148877,157464,166375
%N Floor(1/{(4+n^4)^(1/4)}), where {}=fractional part.
%C Is a(n) = A066023(n) for n>=2?
%F a(n)=floor(1/{(4+n^4)^(1/4)}), where {}=fractional part.
%F It appears that a(n)=4a(n-1)-6a(n-2)+4a(n-3)-a(n-4) for n>=6 and that a(n)=n^3 for n>=2.
%t p[n_]:=FractionalPart[(n^4+4)^(1/4)];
%t q[n_]:=Floor[1/p[n]];
%t Table[q[n],{n,1,80}]
%t FindLinearRecurrence[Table[q[n],{n,1,1000}]]
%Y Cf. A184536.
%K nonn
%O 1,1
%A _Clark Kimberling_, Jan 18 2011
|
