|
%I #17 Nov 01 2022 15:30:31
%S 2,3,5,7,13,17,23,29,31,37,43,47,53,59,67,71,73,79,83,97,103,107,113,
%T 127,131,137,139,151,157,163,167,173,179,193,197,211,223,227,229,233,
%U 239,241,251,257,263,269,271,277,281,283,293,307,311,313,317,331,337
%N Primes containing at least one prime digit in base 10.
%C a(n) = A080608(n) for n<28; A080608 is a subsequence;
%C A179335(n) < 10 iff prime(n) is in this sequence;
%C A109066(n) > 0 iff prime(n) is in this sequence. [Corrected by _M. F. Hasler_, Aug 27 2012]
%H R. Zumkeller, <a href="/A179336/b179336.txt">Table of n, a(n) for n = 1..10000</a>
%F a(n) ~ n log n. - _Charles R Greathouse IV_, Nov 01 2022
%o (Haskell)
%o a179336 n = a179336_list !! (n-1)
%o a179336_list = filter (any (`elem` "2357") . show ) a000040_list
%o -- _Reinhard Zumkeller_, Jul 19 2011
%Y Intersection of A118950 and A000040; relative complement A000040 \ A034844.
%Y Cf. A019546, A108419.
%K base,nonn
%O 1,1
%A _Reinhard Zumkeller_, Jul 11 2010
|
