cp's OEIS Frontend

A030669 Cube root of A030668.

%I A030669 #7 Dec 25 2018 22:23:54
%S A030669 5,3,7,16,8,4,9,20,21,10,48,5,11,52,25,55,12,57,27,59,6,61,62,29,63,
%T A030669 64,14,66,31,67,68,32,15,7,33,154,72,73,34,16,161,35,76,164,77,36,78,
%U A030669 169,17,37,8,174,81,38,82,178,83,18,39,182,85,184,86,40,87,188
%N A030669 Cube root of A030668.
%C A030669 a(n) = A018852(n) if n is not a cube. - _Robert Israel_, Dec 25 2018
%H A030669 Robert Israel, <a href="/A030669/b030669.txt">Table of n, a(n) for n = 1..10000</a>
%p A030669 f:= proc(n) local d,x;
%p A030669   for d from 1 do
%p A030669     x:= ceil((n*10^d)^(1/3));
%p A030669     if x^3 < (n+1)*10^d then return x fi
%p A030669   od
%p A030669 end proc:
%p A030669 map(f, [$1..100]); # _Robert Israel_, Dec 25 2018
%Y A030669 Cf. A018852, A030668.
%K A030669 nonn,base,look
%O A030669 1,1
%A A030669 _Patrick De Geest_