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 A094493 #6 Jun 05 2021 11:45:07
%S A094493 43577,84317,93887,108377,124247,346667,379997,431867,461297,579197,
%T A094493 681257,819317,863867,889037,1143047,1146797,1271027,1306817,1518707,
%U A094493 1775867,1926647,1948517,2119937,2177447,2348807,2491607,2604557
%N A094493 Primes p such that 2^j+p^j are primes for j=0,1,2,16.
%C A094493 Primes of 2^j+p^j form are a generalization of Fermat-primes. 1^j is replaced by p^j. This is strongly supported by the observation that corresponding j-exponents are apparently powers of 2 like for the 5 known Fermat primes. See A094473-A094491.
%e A094493 For j=0: 1+1=2 is prime; other conditions are:
%e A094493 because of p^1+2=prime; 3rd and 4th conditions are as
%e A094493 follows: prime=p^2+4 and prime=65536+p^16.
%t A094493 {ta=Table[0, {100}], u=1}; Do[s0=2;s1=2+Prime[j]^1;s2=4+Prime[j]^2;s16=65536+Prime[j]^16 If[PrimeQ[s0]&&PrimeQ[s1]&&PrimeQ[s2]&&PrimeQ[s16], Print[{j, Prime[j]}];ta[[u]]=Prime[j];u=u+1], {j, 1, 1000000}]
%t A094493 Select[Prime[Range[2*10^5]],AllTrue[Table[2^k+#^k,{k,{0,1,2,16}}],PrimeQ]&] (* Requires Mathematica version 10 or later *) (* _Harvey P. Dale_, Jun 05 2021 *)
%Y A094493 Cf. A082101, A094473-A094491.
%K A094493 nonn
%O A094493 1,1
%A A094493 _Labos Elemer_, Jun 01 2004