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 A180537 #11 Oct 30 2023 11:14:04
%S A180537 2,7,23,29,73,79,223,233,239,251,269,521,571,733,739,751,769,773,1259,
%T A180537 1283,1289,1759,1783,1789,1823,1873,2029,2039,2069,2179,2203,2273,
%U A180537 2293,2309,2333,2351,2371,2393,2411,2459,2549,2579,2591,2671,2699,2711,2713
%N A180537 Primes that become a different prime under the mapping 2 <=> 7.
%H A180537 Robert Price, <a href="/A180537/b180537.txt">Table of n, a(n) for n = 1..1694</a>
%H A180537 <a href="/index/Pri#primes">Index to Primes</a>, Primes that become a different prime under some mapping.
%t A180537 fQ[n_] := Block[{id = IntegerDigits@n}, (MemberQ[id, 2] || MemberQ[id, 7]) && PrimeQ[ FromDigits[ id /. {2 -> 7, 7 -> 2}] ]]; Select[ Prime@ Range@ 400, fQ]
%Y A180537 Cf. A171036, A175791, A180517 thru A180559, A175789, A180560, A180561.
%K A180537 base,nonn
%O A180537 1,1
%A A180537 _Zak Seidov_ and _Robert G. Wilson v_, Sep 09 2010