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 A107689 #12 Mar 13 2021 15:13:04
%S A107689 3,13,31,113,131,311,11113,11131,11311,113111,131111,311111,11111131,
%T A107689 11111311,11113111,11131111,111111113,111111131,111113111,131111111,
%U A107689 11111111113,11111111131,11113111111,11131111111,31111111111
%N A107689 Primes with digital product = 3.
%H A107689 Harvey P. Dale, <a href="/A107689/b107689.txt">Table of n, a(n) for n = 1..500</a>
%t A107689 Flatten[ Table[ Select[ Sort[ FromDigits /@ Permutations[ Flatten[{3, Table[1, {n}]}]]], PrimeQ[ # ] &], {n, 0, 12}]]
%o A107689 (Python)
%o A107689 from sympy import isprime
%o A107689 def agen():
%o A107689 digits = 0
%o A107689 while True:
%o A107689 for i in range(digits+1):
%o A107689 t = int("1"*(digits-i) + "3" + "1"*i)
%o A107689 if isprime(t): yield t
%o A107689 digits += 1
%o A107689 g = agen()
%o A107689 print([next(g) for i in range(25)]) # _Michael S. Branicky_, Mar 13 2021
%Y A107689 Cf. A004022, A107612, A107690, A107691, A107692, A107693, A107694, A107695, A107696, A107697, A107698.
%Y A107689 Subsequence of A034050.
%K A107689 base,nonn
%O A107689 1,1
%A A107689 _Zak Seidov_ and _Robert G. Wilson v_, May 20 2005