login
A118950
Numbers containing at least one prime digit.
12
2, 3, 5, 7, 12, 13, 15, 17, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 42, 43, 45, 47, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 62, 63, 65, 67, 70, 71, 72, 73, 74, 75, 76, 77, 78, 79, 82, 83, 85, 87, 92, 93, 95, 97, 102, 103, 105, 107, 112
OFFSET
1,1
COMMENTS
A193238(a(n)) > 0; complement of A084984; A092620, A092624 and A092625 are subsequences. - Reinhard Zumkeller, Jul 19 2011
FORMULA
a(n) = n + O(n^k) with k = log 6/log 10 = 0.77815.... - Charles R Greathouse IV, Sep 15 2015
MATHEMATICA
Select[Range[150], AnyTrue[IntegerDigits[#], PrimeQ]&] (* Requires Mathematica version 10 or later *) (* Harvey P. Dale, Jul 19 2018 *)
PROG
(Haskell)
a118950 n = a118950_list !! (n-1)
a118950_list = filter (any (`elem` "2357") . show ) [0..]
-- Reinhard Zumkeller, Jul 19 2011
(PARI) is(n)=!!#select(isprime, digits(n)) \\ Charles R Greathouse IV, Sep 15 2015
CROSSREFS
KEYWORD
base,nonn
AUTHOR
Rick L. Shepherd, May 06 2006
STATUS
approved