[go: up one dir, main page]

login

Year-end appeal: Please make a donation to the OEIS Foundation to support ongoing development and maintenance of the OEIS. We are now in our 61st year, we have over 378,000 sequences, and we’ve reached 11,000 citations (which often say “discovered thanks to the OEIS”).

A208270
Primes containing a digit 1.
11
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.
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
KEYWORD
nonn,base,easy
AUTHOR
Jaroslav Krizek, Mar 04 2012
STATUS
approved