|
|
|
|
5, 16, 21, 55, 63, 154, 17, 40, 201, 10, 23, 113, 257, 27, 609, 295, 307, 148, 1535, 342, 164, 1692, 809, 1793, 397, 878, 90, 428, 944, 4482, 987, 1008, 1029, 4872, 107, 2349, 5154, 5247, 2478, 252, 552, 5609, 5697, 5785, 2726, 1284, 2806, 6131
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
COMMENTS
|
Smallest m such that m^3 begins with n^2.
|
|
LINKS
|
|
|
EXAMPLE
|
a(4)=55 because 55^3=166375 begins with 4^2=16. - Zak Seidov, Oct 18 2011
|
|
MATHEMATICA
|
s={}; Do[If[n==3, AppendTo[s, 21], k=1; While[(ra=Range[Ceiling[(n^2*10^k)^(1/3)], Floor[((n^2+1)*10^k)^(1/3)]]) == {}, k++]; AppendTo[s, ra[[1]]]], {n, 100}]; s (* Zak Seidov, Oct 18 2011 *)
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,base
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|