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
KEYWORD
base,nonn
AUTHOR
Luc Stevens (lms022(AT)yahoo.com), May 21 2006
EXTENSIONS
Corrected by R. J. Mathar, Aug 21 2006
STATUS
approved