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

Author

Jaroslav Krizek, Mar 04 2012

Keywords

• nonn
• base
• easy

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

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

Programs

Magma

[p: p in PrimesUpTo(400) | 1 in Intseq(p)]; // Vincenzo Librandi, Apr 29 2019

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 *)

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

Formula

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