A030669 Cube root of A030668.

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, 64, 14, 66, 31, 67, 68, 32, 15, 7, 33, 154, 72, 73, 34, 16, 161, 35, 76, 164, 77, 36, 78, 169, 17, 37, 8, 174, 81, 38, 82, 178, 83, 18, 39, 182, 85, 184, 86, 40, 87, 188

Offset: 1

Author

Patrick De Geest

Keywords

• nonn
• base
• look

Comments

a(n) = A018852(n) if n is not a cube. - Robert Israel, Dec 25 2018

Links

• Robert Israel, Table of n, a(n) for n = 1..10000

Crossrefs

Cf. A018852, A030668.

Programs

Maple

f:= proc(n) local d,x;
  for d from 1 do
    x:= ceil((n*10^d)^(1/3));
    if x^3 < (n+1)*10^d then return x fi
  od
end proc:
map(f, [$1..100]); # Robert Israel, Dec 25 2018