%I
%S 1,1,3,7,13,21,4,43,1,73,91,111,5,2,183211,241,7,27,343,6,421,463,507,
%T 553,189,19,1,757,813,7,931,993,1057,196,37,36,518,126,1483,1561,3,8,
%U 1807,61,1981,2071,2163,140,2353,2451,234,2653,91,2863,532,9,3193,3307
%N Smallest k such that nk1 is a cube.
%t Do[k = 1; While[ !IntegerQ[(n*k  1)^(1/3)], k++ ]; Print[k], {n, 1, 59}]
%K nonn
%O 1,3
%A _Amarnath Murthy_, Oct 20 2002
%E Edited and extended by _Robert G. Wilson v_, Oct 21 2002
