OFFSET
1,1
LINKS
Robert G. Wilson v, Table of n, a(n) for n = 1..10000
EXAMPLE
a(1) = 27 because 27 = 3^3 is the smallest cube beginning (base 10) with prime(1) = 2.
a(2) = 343 because 343 = 7^3 is the smallest cube beginning (base 10) with prime(2) = 3.
MATHEMATICA
f[n_] := Block[{k, l = Ceiling@ Log[10, Prime@ n], p = IntegerDigits@ Prime@ n}, k = Ceiling[ Prime[n]^(1/3)]; While[ Take[ IntegerDigits[k^3], l] != p, k++ ]; k^3]; Array[f, 31] (* Robert G. Wilson v, May 31 2008 *)
CROSSREFS
KEYWORD
base,easy,nonn
AUTHOR
EXTENSIONS
Edited by N. J. A. Sloane, Aug 29 2008 at the suggestion of R. J. Mathar
STATUS
approved