%I A030673
%S A030673 27,343,512,729,110592,1331,1728,19683,238328,29791,314432,373248,
%T A030673 4173281,438976,474552,531441,59319,614125,6751269,7189057,7301384,
%U A030673 79507,830584,8998912,97336,101194696,103823,10793861,1092727,11390625
%N A030673 Smallest cube that begins with n-th prime.
%H A030673 Robert G. Wilson v, <a href="b030673.txt">Table of n, a(n) for n = 1..1000</
               a>.
%F A030673 a(n) = A018797(A000040(n)).
%e A030673 a(1) = 27 because 27 = 3^3 is the smallest cube beginning (base 10) with 
               prime(1) = 2.
%e A030673 a(2) = 343 because 343 = 7^3 is the smallest cube beginning (base 10) 
               with prime(2) = 3.
%t A030673 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, (rgwv(AT)rgwv.com), 
               May 31 2008 *)
%Y A030673 Cf. A000040, A000578, A018797, A030674.
%Y A030673 Sequence in context: A076394 A133211 A029947 this_sequence A030683 A038840 
               A032599
%Y A030673 Adjacent sequences: A030670 A030671 A030672 this_sequence A030674 A030675 
               A030676
%K A030673 base,easy,nonn
%O A030673 1,1
%A A030673 Patrick De Geest (pdg(AT)worldofnumbers.com)
%E A030673 Edited by N. J. A. Sloane (njas(AT)research.att.com), Aug 29 2008 at 
               the suggestion of R. J. Mathar