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 A172146 #3 Jun 02 2025 02:23:35
%S A172146 3,5,7,11,13,17,19,23,29,31,37,41,43,47,101,2531,4241,5393,94933,
%T A172146 262469,16797953,48989177,78371693633,2552470327703,4747732369319,
%U A172146 17832200896513,131621703955647041,4052555153019035587
%N A172146 Primes of form x^y + y^x + 1.
%e A172146 a(1)=1^1+1^1+1=3 a(2)=1^3+3^1+1=5 a(3)=1^5+5^1+1=7 ... a(15)=2^6+6^2+1=101
%t A172146 a[n_] := Block[{}, For[l = {}; i = 1, i < n, i++, For[j = i, j < n, j++, x = i^j + j^i + 1; If[PrimeQ[x], l = Append[l, x]]]]; Print[Sort[Union[l]]]]; a[50]
%Y A172146 Cf. A094133, A172142
%K A172146 nonn
%O A172146 1,1
%A A172146 Cheng Zhang (cz1(AT)rice.edu), Jan 26 2010, Mar 03 2010