A208270 Primes containing a digit 1.

11, 13, 17, 19, 31, 41, 61, 71, 101, 103, 107, 109, 113, 127, 131, 137, 139, 149, 151, 157, 163, 167, 173, 179, 181, 191, 193, 197, 199, 211, 241, 251, 271, 281, 311, 313, 317, 331, 401, 419, 421, 431, 461, 491, 521, 541, 571, 601, 613, 617, 619, 631, 641, 661

Offset

1,1

Comments

Subsequence of A011531, A062634, A092911 and A092912.

Supersequence of A106101, A045707 and A030430.

Complement of A208271 with respect to A011531.

Links

Vincenzo Librandi, Table of n, a(n) for n = 1..10000

Index entries for sequences related to decimal expansion of n

Formula

a(n) ~ n log n since the sequence contains almost all primes. - Charles R Greathouse IV, Mar 04 2012

Mathematica

Select[Prime[Range[124]], MemberQ[IntegerDigits[#], 1] &](* Jayanta Basu, Apr 01 2013 *)
Select[Prime[Range[200]], DigitCount[#, 10, 1]>0&] (* Harvey P. Dale, Dec 15 2020 *)

Prog

(PARI) forprime(p=2, 1e3, s=vecsort(eval(Vec(Str(p))), , 8); if(s[1]==1||(s[1]==0&&s[2]==1), print1(p", "))) \\ Charles R Greathouse IV, Mar 04 2012
(PARI) is_A208270(n)=isprime(n)&setsearch(Set(Vec(Str(n))), 1) \\ M. F. Hasler, Mar 05 2012
(Magma) [p: p in PrimesUpTo(400) | 1 in Intseq(p)]; // Vincenzo Librandi, Apr 29 2019

Crossrefs

Cf. A208271 (nonprimes containing a digit 1), A011531 (numbers containing a digit 1).

Complement of A038603 in A000040. - M. F. Hasler, Mar 05 2012

Sequence in context: A092911 A062634 A239058 * A106101 A032590 A181576

Adjacent sequences: A208267 A208268 A208269 * A208271 A208272 A208273

Keyword

nonn,base,easy

Author

Jaroslav Krizek, Mar 04 2012

Status

approved