|
|
A179038
|
|
Emirps whose only prime digits are 7's.
|
|
1
|
|
|
17, 71, 79, 97, 107, 167, 179, 701, 709, 761, 769, 907, 967, 971, 1097, 1471, 1487, 1741, 1789, 1847, 1867, 1879, 1979, 7177, 7187, 7481, 7649, 7681, 7687, 7699, 7717, 7817, 7841, 7867, 7879, 7901, 7949, 9467, 9479, 9497, 9679, 9749, 9769, 9781, 9787
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
LINKS
|
|
|
MATHEMATICA
|
okQ[n_]:=Module[{idn=IntegerDigits[n], rev}, rev=Reverse[idn]; idn!=rev && Union[Select[idn, PrimeQ]]=={7}&&PrimeQ[FromDigits[rev]]]; Select[ Prime[ Range[1300]], okQ] (* Harvey P. Dale, Jul 18 2011 *)
|
|
CROSSREFS
|
|
|
KEYWORD
|
base,nonn
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|