OFFSET
1,1
COMMENTS
LINKS
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
KEYWORD
nonn,base,easy
AUTHOR
Jaroslav Krizek, Mar 04 2012
STATUS
approved