A179336 - OEIS

%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