OFFSET
1,1
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..10000
MATHEMATICA
Select[Range[2000], PrimeQ[#] && MemberQ[IntegerDigits[#], 6] &] (* Amiram Eldar, Nov 09 2019 *)
PROG
(Magma) [p: p in PrimesUpTo(10000) | 6 in Intseq(p)];
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Jaroslav Krizek, Mar 24 2017
STATUS
approved