A197722 Smallest number k such that k^2 begins with n^3.

1, 9, 52, 8, 112, 147, 586, 716, 27, 100, 1154, 4157, 4688, 5239, 581, 64, 22166, 2415, 2619, 28285, 30432, 10319, 34882, 37181, 125, 41924, 44366, 46853, 15617, 51962, 54582, 18102, 59948, 62693, 207063, 216, 71171, 74076, 77019, 800, 83019, 272192, 28197

Offset

1,2

Links

Table of n, a(n) for n=1..43.

Example

a(6) = 147 because 147^2 = 21609 starts with 216 = 6^3.

Mathematica

f[n_]:=Block[{k = 0, m}, While[m = Max[0, Floor@Log[10, k^2]-Floor@Log[10, n^3]]; (k^2-Mod[k^2, 10^m])/10^m != n^3, k++]; k]; Array[f, 43]

Crossrefs

See A138173 (smallest m such that m^3 begins with n^2).

Sequence in context: A231748 A181161 A152580 * A172470 A120665 A163941

Adjacent sequences: A197719 A197720 A197721 * A197723 A197724 A197725

Keyword

nonn,base

Author

Michel Lagneau, Oct 17 2011

Status

approved