%I #8 Jul 13 2013 12:04:21
%S 2,3,5,7,11,12,15,19,20,21,22,24,26,28,30,33,34,36,38,39,41,42,45,50,
%T 51,54,55,56,58,61,62,63,65,70,74,76,77,78,82,85,87,89,92,93,95,101,
%U 102,105,109,110,111,114,116,118,120,121,122,124,126,128,141
%N Numbers containing exactly one prime in decimal representation.
%C A039997(a(n)) = 1.
%H Reinhard Zumkeller, <a href="/A205667/b205667.txt">Table of n, a(n) for n = 1..10000</a>
%e A039997(10) = #{} = 0, therefore 10 is not a term;
%e A039997(11) = #{11} = 1, therefore 11 is a term;
%e A039997(12) = #{2} = 1, therefore 12 is a term;
%e A039997(13) = #{3, 13} = 2, therefore 13 is not a term.
%o (Haskell)
%o a205667 n = a205667_list !! (n-1)
%o a205667_list = filter ((== 1) . a039997) [0..]
%o -- _Reinhard Zumkeller_, Jan 31 2012
%Y Subsequence of A163753.
%K nonn,base
%O 1,1
%A _Reinhard Zumkeller_, Jan 31 2012