OFFSET
1,1
MATHEMATICA
Reap[Do[id=IntegerDigits[p=Prime[n]]; If[MemberQ[id, 2]&&PrimeQ[FromDigits[DeleteCases[id, 2]]], Sow[p]], {n, 3000}]][[2, 1]]
PROG
(Magma) remove2:=func< n | [ d: d in n | d ne 2 ] >; [ p: p in PrimesUpTo(3000) | exists(t){ d: d in D | d eq 2 } and IsPrime(Seqint(remove2(D))) where D is Intseq(p) ];
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Zak Seidov, Dec 07 2010
STATUS
approved