login
Number of different values taken by the integer part of n^(1/k) for all k > 1.
2

%I #16 May 09 2024 00:54:37

%S 1,1,1,2,2,2,2,2,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,4,4,4,4,4,4,4,4,

%T 4,4,4,4,4,4,4,4,4,4,4,4,4,4,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,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5

%N Number of different values taken by the integer part of n^(1/k) for all k > 1.

%e a(28) = 4: floor(28^(1/2)) = 5, floor(28^(1/3)) = 3, floor(28^(1/4)) = 2, floor (28^(1/5)) = 1 = floor(28^(1/k), (k > 5)), etc. The distinct values are 1,2,3 and 5.

%p A069624 := proc(n)

%p local s,k,a ;

%p s := {} ;

%p for k from 2 do

%p a := floor(n^(1/k)) ;

%p s := s union {a} ;

%p if a = 1 then

%p break;

%p end if;

%p end do:

%p nops(s) ;

%p end proc: # _R. J. Mathar_, May 19 2014

%t f[n_] := Block[{k = 1}, While[ Floor[n^(1/k)] != 1, k++ ]; k]; Table[ Length[ Union[ Table[ Floor[n^(1/k)], {k, 2, f[n]+1}]]], {n, 1, 105}]

%Y Cf. A071913.

%K nonn

%O 1,4

%A _Amarnath Murthy_, Mar 27 2002

%E Edited by _N. J. A. Sloane_ and _Robert G. Wilson v_, Jun 14 2002

%E Definition corrected by _Robert Israel_, May 18 2014

%E a(8) corrected by _Sean A. Irvine_, May 08 2024