Reminder: The OEIS is hiring a new managing editor, and the application deadline is January 26.
%I #7 Dec 25 2018 22:23:54
%S 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 64,14,66,31,67,68,32,15,7,33,154,72,73,34,16,161,35,76,164,77,36,78,
%U 169,17,37,8,174,81,38,82,178,83,18,39,182,85,184,86,40,87,188
%N Cube root of A030668.
%C a(n) = A018852(n) if n is not a cube. - _Robert Israel_, Dec 25 2018
%H Robert Israel, <a href="/A030669/b030669.txt">Table of n, a(n) for n = 1..10000</a>
%p f:= proc(n) local d,x;
%p for d from 1 do
%p x:= ceil((n*10^d)^(1/3));
%p if x^3 < (n+1)*10^d then return x fi
%p od
%p end proc:
%p map(f, [$1..100]); # _Robert Israel_, Dec 25 2018
%Y Cf. A018852, A030668.
%K nonn,base,look
%O 1,1
%A _Patrick De Geest_