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 A173935 #10 Mar 01 2022 14:50:59
%S A173935 2,23,313,3137,233347,739397,379837313,73932013313,7399973479337
%N A173935 a(n) is the least prime that is the concatenation of two primes in exactly n different ways.
%e A173935 23 = 2 & 3, 313 = 3 & 13 and 31 & 3, etc.
%t A173935 f[n_] := Block[{c = 0, id = IntegerDigits@n, k = 0}, len = Length@ id; While[ k < len, If[ Union@ PrimeQ[ FromDigits@# & /@ {id[[;; k + 1]], id[[k + 2 ;;]]}] == {True}, c++ ]; k++ ]; c]; t = Table[0, {10}]; p = 2; While[p < 10^8, a = f@p; If[ t[[a]] == 0, t[[a]] = p; Print[{a, p}]]; p = NextPrime@ p]
%Y A173935 Cf. A105184, A106582.
%K A173935 base,more,nonn
%O A173935 0,1
%A A173935 _Robert G. Wilson v_, Mar 02 2010
%E A173935 a(6) from _Robert G. Wilson v_, Mar 04 2010
%E A173935 a(7) from _Donovan Johnson_, Nov 09 2010
%E A173935 a(8) from _Giovanni Resta_, Mar 04 2014