OFFSET
1,1
MATHEMATICA
Do[id=Union[IntegerDigits[Prime[n]], IntegerDigits[n]]; If[Count[id, 1]+Count[id, 2]+Count[id, 3]+Count[id, 5]+Count[id, 7]==0, Print[n]], {n, 10000}]
PROG
(PARI) is_a001744(n) = #setintersect(vecsort(digits(n), , 8), [1, 2, 3, 5, 7])==0
is(n) = is_a001744(n) && is_a001744(prime(n)) \\ Felix Fröhlich, Sep 09 2019
CROSSREFS
KEYWORD
nonn,base,dumb
AUTHOR
Zak Seidov, May 18 2005
EXTENSIONS
More terms from Felix Fröhlich, Sep 09 2019
STATUS
approved