A118950 Numbers containing at least one prime digit.

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

Author

Rick L. Shepherd, May 06 2006

Keywords

• base
• nonn

Comments

A193238(a(n)) > 0; complement of A084984; A092620, A092624 and A092625 are subsequences. - Reinhard Zumkeller, Jul 19 2011

Links

• Reinhard Zumkeller, Table of n, a(n) for n = 1..10000
• Index entries for 10-automatic sequences.

Crossrefs

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

Programs

Haskell

a118950 n = a118950_list !! (n-1)
a118950_list = filter (any (`elem` "2357") . show ) [0..]
-- Reinhard Zumkeller, Jul 19 2011

Mathematica

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

PARI

is(n)=!!#select(isprime, digits(n)) \\ Charles R Greathouse IV, Sep 15 2015

Formula

a(n) = n + O(n^k) with k = log 6/log 10 = 0.77815.... - Charles R Greathouse IV, Sep 15 2015