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 A180522 #11 Oct 29 2023 01:52:15
%S A180522 73,103,109,173,179,409,479,701,709,719,743,761,773,1021,1033,1303,
%T A180522 1373,1721,1733,1801,1871,2011,2029,2053,2089,2203,2273,2711,2729,
%U A180522 2753,2789,3019,3061,3079,3301,3371,3709,3719,3761,4021,4051,4073,4093,4099,4201
%N A180522 Primes that become a different prime under the mapping 0 <=> 7.
%H A180522 Robert Price, <a href="/A180522/b180522.txt">Table of n, a(n) for n = 1..1956</a>
%H A180522 <a href="/index/Pri#primes">Index to Primes</a>, Primes that become a different prime under some mapping.
%t A180522 fQ[n_] := Block[{id = IntegerDigits@n}, (MemberQ[id, 0] || MemberQ[id, 7]) && PrimeQ[ FromDigits[ id /. {0 -> 7, 7 -> 0}] ]]; Select[ Prime@ Range@ 600, fQ]
%Y A180522 Cf. A171034, A175791, A180517 thru A180559, A175789, A180560, A180561.
%K A180522 base,nonn
%O A180522 1,1
%A A180522 _Zak Seidov_ and _Robert G. Wilson v_, Sep 09 2010