login
Lucky numbers with only prime digits.
1

%I #15 Sep 18 2024 16:33:58

%S 3,7,25,33,37,73,75,223,235,237,273,327,357,535,537,553,577,723,727,

%T 735,777,2253,2257,2277,2323,2335,2355,2523,2527,2557,2575,2725,2755,

%U 2773,3223,3235,3325,3355,3727,3753,5233,5235,5253,5277,5325

%N Lucky numbers with only prime digits.

%C Lucky numbers with digits 2,3,5 or 7.

%H 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 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 Intersection of A000959 and A046034.

%K base,nonn

%O 1,1

%A Luc Stevens (lms022(AT)yahoo.com), May 21 2006

%E Corrected by _R. J. Mathar_, Aug 21 2006