A118718 Lucky numbers with only prime digits.
3, 7, 25, 33, 37, 73, 75, 223, 235, 237, 273, 327, 357, 535, 537, 553, 577, 723, 727, 735, 777, 2253, 2257, 2277, 2323, 2335, 2355, 2523, 2527, 2557, 2575, 2725, 2755, 2773, 3223, 3235, 3325, 3355, 3727, 3753, 5233, 5235, 5253, 5277, 5325
Offset: 1
Links
- Amiram Eldar, Table of n, a(n) for n = 1..10000 (terms 1..189 from N. J. A. Sloane)
Programs
-
Mathematica
L = Table[2*i + 1, {i, 0,2663}]; For[n = 2, n < Length[L], r = L[[n++]]; L = ReplacePart[L, Table[r*i -> Nothing, {i, 1, Length[L]/r}]]];Select[L,ContainsOnly[IntegerDigits[#],{2,3,5,7}]&] (* James C. McMahon, Sep 16 2024 *)
Extensions
Corrected by R. J. Mathar, Aug 21 2006
Comments