login

Reminder: The OEIS is hiring a new managing editor, and the application deadline is January 26.

Cube root of A030668.
3

%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_