A077536 Multiples of 7 using only prime digits (2, 3, 5 and 7).
7, 35, 77, 252, 273, 322, 357, 525, 532, 553, 735, 777, 2233, 2275, 2352, 2373, 2527, 2555, 2723, 2737, 2772, 3227, 3255, 3325, 3332, 3353, 3535, 3577, 3752, 3773, 5222, 5257, 5327, 5355, 5523, 5537, 5572, 5733, 5775, 7252, 7273, 7322, 7357, 7525, 7532
Offset: 0
Programs
-
Mathematica
Select[7*Range[1100],And@@PrimeQ[IntegerDigits[#]]&] (* Harvey P. Dale, Jul 18 2011 *)
Extensions
Corrected and extended by Sascha Kurz, Jan 03 2003