OFFSET
1,2
LINKS
Ray Chandler, Table of n, a(n) for n = 1..25
EXAMPLE
a(3) = 231 as 231^3=12326391 is the smallest cube beginning with 123.
MATHEMATICA
a[n_] := Block[{t = Flatten@Table[IntegerDigits@i, {i, n}], m, v, h=0}, m = Length@t; z = FromDigits@t; While[Take[IntegerDigits[(v = Ceiling[(z 10^h) ^ (1/n)])^n], m] != t, h++]; v]; Array[a, 30] (* Giovanni Resta, Jul 12 2016 *)
CROSSREFS
KEYWORD
base,easy,nonn
AUTHOR
Amarnath Murthy, Feb 21 2002
EXTENSIONS
More terms from Robert Gerbicz, Sep 05 2002
STATUS
approved