%I A112388
%S A112388 10123457689,101723,5437,2339,1009,257,139,173,83,67,31,29,37,17,17,47,
%T A112388 19,7,5,23,23,5,11,11,17,5,5,5,5,11,5,11,11,5,5,7,5,7,3,5,5,7,7,7,3,7,
               3,
%U A112388 3,5,5,5,5,3,7,7,5,3,7,5,3,3,3,3,3,3,5,3,2,3,2,3,3,3,3,5,3,3,3,2,3,5,2
%N A112388 a(n) is the smallest prime such that a(n)^n contains every digit.
%C A112388 The indices of the corresponding primes are 460412186,9741,718,346,169,
               55,34,40,23,19,11,10,12,7,7,15,8,4,3,9, ..., . - Robert G. Wilson 
               v (rgwv(at)rgwv.com), Dec 06 2005
%t A112388 f[n_] := Block[{k = 1}, While[ Union@IntegerDigits[ Prime[k]^n] != {0, 
               1, 2, 3, 4, 5, 6, 7, 8, 9}, k++ ]; Prime[k]]; Array[f, 82] (* Robert 
               G. Wilson v *)
%Y A112388 Cf. A020666, A020665, A007377.
%Y A112388 Sequence in context: A017278 A017518 A017650 this_sequence A050288 A159569 
               A159292
%Y A112388 Adjacent sequences: A112385 A112386 A112387 this_sequence A112389 A112390 
               A112391
%K A112388 base,nonn
%O A112388 1,1
%A A112388 Tanya Khovanova (tanyakh(AT)yahoo.com), Dec 05 2005
%E A112388 More terms from Robert G. Wilson v (rgwv(at)rgwv.com), Dec 06 2005