login
A118718
Lucky numbers with only prime digits.
1
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,1
COMMENTS
Lucky numbers with digits 2,3,5 or 7.
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..10000 (terms 1..189 from N. J. A. Sloane)
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 *)
CROSSREFS
Intersection of A000959 and A046034.
Sequence in context: A042657 A031875 A157817 * A349753 A058781 A347614
KEYWORD
base,nonn
AUTHOR
Luc Stevens (lms022(AT)yahoo.com), May 21 2006
EXTENSIONS
Corrected by R. J. Mathar, Aug 21 2006
STATUS
approved