|
%I #14 Mar 22 2023 17:41:08
%S 0,0,0,1,1,1,1,0,1,1,1,1,1,1,1,2,2,2,2,2,2,2,2,2,3,3,2,2,2,2,2,2,2,2,
%T 2,3,3,3,3,3,3,3,3,3,3,3,3,3,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,
%U 4,4,4,4,4,4,4,4,4,4,4,4,5,5
%N The number of bases >=2 in which n is 3-digit number.
%F a(n) = floor(sqrt(n))-floor(n^(1/3)) = A000196(n) - A048766(n).
%t Table[Floor[Sqrt[n]]-Floor[CubeRoot[n]],{n,90}] (* _Harvey P. Dale_, Mar 22 2023 *)
%o (PARI) a(n)=sqrtint(n)-floor((n+.5)^(1/3)) \\ _Charles R Greathouse IV_, Jan 03 2013
%Y Cf. A191279.
%K nonn,easy,base
%O 1,16
%A _Vladimir Shevelev_, May 29 2011
|
