This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A118718 #15 Sep 18 2024 16:33:58
%S A118718 3,7,25,33,37,73,75,223,235,237,273,327,357,535,537,553,577,723,727,
%T A118718 735,777,2253,2257,2277,2323,2335,2355,2523,2527,2557,2575,2725,2755,
%U A118718 2773,3223,3235,3325,3355,3727,3753,5233,5235,5253,5277,5325
%N A118718 Lucky numbers with only prime digits.
%C A118718 Lucky numbers with digits 2,3,5 or 7.
%H A118718 Amiram Eldar, <a href="/A118718/b118718.txt">Table of n, a(n) for n = 1..10000</a> (terms 1..189 from N. J. A. Sloane)
%t A118718 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 *)
%Y A118718 Intersection of A000959 and A046034.
%K A118718 base,nonn
%O A118718 1,1
%A A118718 Luc Stevens (lms022(AT)yahoo.com), May 21 2006
%E A118718 Corrected by _R. J. Mathar_, Aug 21 2006