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,1

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.

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

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

Sequence in context: A046941 A116692 A114983 * A344451 A092620 A028843

Adjacent sequences: A118947 A118948 A118949 * A118951 A118952 A118953

Keyword

base,nonn

Author

Rick L. Shepherd, May 06 2006

Status

approved