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 A361628 #15 Apr 23 2023 23:19:35 %S A361628 222,255,273,322,357,555,777,2222,2233,2235,2255,2337,2355,2373,2522, %T A361628 2553,2555,2737,2755,3237,3322,3333,3335,3355,3522,3535,3553,3723, %U A361628 5222,5235,5253,5322,5335,5522,5523,5555,5727,5735,5757,7222,7257,7322,7337,7527,7535,7553,7557 %N A361628 Sphenic numbers (products of 3 distinct primes) whose digits are primes. %t A361628 Select[Flatten@ Table[FromDigits /@ Tuples[Prime[Range[4]], n], {n, 3, 4}], FactorInteger[#][[;; , 2]] == {1, 1, 1} &] (* _Amiram Eldar_, Mar 18 2023 *) %o A361628 (PARI) isok(k) = (omega(k)==3) && (bigomega(k)==3) && !#select(x->!isprime(x), digits(k)); \\ _Michel Marcus_, Mar 21 2023 %Y A361628 Intersection of A046034 and A007304. %Y A361628 Cf. A102782. %K A361628 nonn,base %O A361628 1,1 %A A361628 _Massimo Kofler_, Mar 18 2023