OFFSET
1,1
COMMENTS
LINKS
Reinhard Zumkeller, Table of n, a(n) for n = 1..10000
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