OFFSET
1,2
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
KEYWORD
nonn,base
AUTHOR
Michel Lagneau, Oct 17 2011
STATUS
approved