OFFSET
1,1
EXAMPLE
335^3 = 37595375 starts and ends with the same 3 digits.
MATHEMATICA
lst = {}; Do[n = Ceiling[(10^(2*k))^(1/3)]; While[True, d = IntegerDigits[n^3]; If[Take[d, k] == Take[d, -k], Break[]]; n++]; AppendTo[lst, n], {k, 6}]; lst
CROSSREFS
KEYWORD
base,more,nonn
AUTHOR
Arkadiusz Wesolowski, Jan 06 2012
EXTENSIONS
a(9)-a(10) from Donovan Johnson, Jan 12 2012
a(11)-a(13) from Giovanni Resta, Apr 18 2016
STATUS
approved