%I A086204
%S A086204 2,2,47,151,4001,4001,100207,41532851
%N A086204 Decimal equivalents of strings in A086884.
%e A086204 a(5)=10010111 because 10010111 (base 2)=151, 10010111 (base 3)=2281,
%e A086204 10010111 (base 4)=16661 and 10010111 (base 5)=78781 are all prime and 
               10010111 is
%e A086204 smallest such string.
%t A086204 a[n_] := (While[b = FromDigits[ IntegerDigits[k, 2]]; Union[ PrimeQ[ 
               Table[ FromDigits[ IntegerDigits[b], i], {i, 2, n}]]] != {True}, 
               k++ ]; b); k = 1; Do[ Print[ a[n]], {n, 2, 10}]
%Y A086204 Sequence in context: A152016 A156467 A015167 this_sequence A037292 A028372 
               A130678
%Y A086204 Adjacent sequences: A086201 A086202 A086203 this_sequence A086205 A086206 
               A086207
%K A086204 nonn
%O A086204 2,1
%A A086204 Richard FitzHugh (fitzhughrichard(AT)hotmail.com), Aug 22 2003
%E A086204 Edited by Robert G. Wilson v (rgwv(AT)rgwv.com), Aug 24 2003