OFFSET
1,2
COMMENTS
B-file stops at a(25) because a(26) has 1107 digits. - Giovanni Resta, Jul 12 2016
LINKS
Ray Chandler, Table of n, a(n) for n = 1..25
EXAMPLE
12326391 = 231^3 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^n]; Array[a, 25] (* Giovanni Resta, Jul 12 2016 *)
CROSSREFS
KEYWORD
base,nonn
AUTHOR
Amarnath Murthy, Feb 21 2002
EXTENSIONS
More terms from Robert Gerbicz, Sep 05 2002
Edited by N. J. A. Sloane at the suggestion of Andrew S. Plewe, Jun 15 2007
STATUS
approved