A118950 - OEIS

%I #14 Jul 19 2018 11:07:24

%S 2,3,5,7,12,13,15,17,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,

%T 36,37,38,39,42,43,45,47,50,51,52,53,54,55,56,57,58,59,62,63,65,67,70,

%U 71,72,73,74,75,76,77,78,79,82,83,85,87,92,93,95,97,102,103,105,107,112

%N Numbers containing at least one prime digit.

%C A193238(a(n)) > 0; complement of A084984; A092620, A092624 and A092625 are subsequences. - _Reinhard Zumkeller_, Jul 19 2011

%H Reinhard Zumkeller, <a href="/A118950/b118950.txt">Table of n, a(n) for n = 1..10000</a>

%H <a href="/index/Ar#10-automatic">Index entries for 10-automatic sequences</a>.

%F a(n) = n + O(n^k) with k = log 6/log 10 = 0.77815.... - _Charles R Greathouse IV_, Sep 15 2015

%t Select[Range[150],AnyTrue[IntegerDigits[#],PrimeQ]&] (* Requires Mathematica version 10 or later *) (* _Harvey P. Dale_, Jul 19 2018 *)

%o (Haskell)

%o a118950 n = a118950_list !! (n-1)

%o a118950_list = filter (any (`elem` "2357") . show ) [0..]

%o -- _Reinhard Zumkeller_, Jul 19 2011

%o (PARI) is(n)=!!#select(isprime, digits(n)) \\ _Charles R Greathouse IV_, Sep 15 2015

%Y Cf. A118951, A092620, A084984, A011540, A011531, A046034, A179336 (primes).

%K base,nonn

%O 1,1

%A _Rick L. Shepherd_, May 06 2006