%I A085451
%S A085451 1,2,3,4,6,8,9,10,12,15,16,17,19,20,21,24,25,27,28,35,39,40,45,53,57,58,
%T A085451 60,61,69,70,72,79,85,89,90,91,93,96,98,104,108,120,124,145,146,147,150,
%U A085451 162,236,237,253,254,259,315,316,359,380,384,390,405,406,460,461,518
%N A085451 Numbers n such that n and prime[n] together use only distinct digits.
%C A085451 There are exactly 101 such numbers in the sequence. Numbers with distinct 
               digits in A010784. Primes with distinct digits in A029743. The case 
               n and n^2 (exactly 22 numbers) in A059930.
%e A085451 3106 is in the sequence (and the last term) because it and prime[3106]=28549 
               together use all 10 distinct digits.
%t A085451 bb = {}; Do[idpn = IntegerDigits[Prime[n]]; idn = IntegerDigits[n]; If[Length[idn] 
               + Length[idpn] == Length[Union[idn, idpn]], bb = {bb, n}], {n, 1, 
               100000}]; Flatten[bb]
%Y A085451 Cf. A010784 A029743 A059930 A085452.
%Y A085451 Sequence in context: A054220 A143896 A160719 this_sequence A064150 A067023 
               A002183
%Y A085451 Adjacent sequences: A085448 A085449 A085450 this_sequence A085452 A085453 
               A085454
%K A085451 fini,nonn,base
%O A085451 1,2
%A A085451 Zak Seidov (zakseidov(AT)yahoo.com), Jul 01 2003