OFFSET
1,1
LINKS
Harvey P. Dale, Table of n, a(n) for n = 1..376
MATHEMATICA
Do[id=Union[IntegerDigits[p=Prime[n]], IntegerDigits[n]]; If[Count[id, 1]+Count[id, 2]+Count[id, 3]+Count[id, 5]+Count[id, 7]==0, Print[p]], {n, 10000}]
Module[{c={0, 4, 6, 8, 9}}, Select[Prime/@(Rest[FromDigits/@Tuples[c, 6]]), SubsetQ[ c, IntegerDigits[#]]&]] (* Harvey P. Dale, Sep 03 2015 *)
PROG
(PARI) is_a001744(n) = #setintersect(vecsort(digits(n), , 8), [1, 2, 3, 5, 7])==0
my(i=1); forprime(p=1, 65e5, if(is_a001744(p) && is_a001744(i), print1(p, ", ")); i++) \\ Felix Fröhlich, Sep 09 2019
CROSSREFS
KEYWORD
nonn,base,dumb
AUTHOR
Zak Seidov, May 18 2005
EXTENSIONS
More terms from Harvey P. Dale, Sep 03 2015
STATUS
approved