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 A124674 #14 Mar 27 2020 06:41:12 %S A124674 2,3,5,7,23,37,53,73,257,523,2357,2753,3257,3527,5237,5273,7253,7523 %N A124674 Primes with distinct prime digits. %H A124674 Caldwell and Honaker, <a href="https://primes.utm.edu/curios/page.php?curio_id=32194">2357</a>, Prime Curios! %t A124674 Select[Range[10000], PrimeQ[ # ] && Length[IntegerDigits[ # ]] == Length[Union[IntegerDigits[ # ]]] && Complement[IntegerDigits[ # ], {2, 3, 5, 7}] == {} &] %o A124674 (PARI) is(k) = isprime(k) && setintersect([2, 3, 5, 7], v=vecsort(digits(k))) == v; \\ _Jinyuan Wang_, Mar 27 2020 %Y A124674 Cf. A019546 (primes whose digits are primes), A124673. %K A124674 nonn,base,fini,full %O A124674 1,1 %A A124674 _Tanya Khovanova_, Dec 24 2006