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 A089740 #16 Jan 01 2024 11:21:06
%S A089740 3,5,7,13,31,37,43,67,73,79,97,103,113,127,139,157,163,173,181,191,
%T A089740 199,223,227,229,233,251,257,271,281,283,313,337,349,353,359,367,383,
%U A089740 409,419,433,449,457,463,467,479,491,523,541,547,563,569,587,601,619,631
%N A089740 Primes which are digital complements (A055120) of primes.
%H A089740 Robert Israel, <a href="/A089740/b089740.txt">Table of n, a(n) for n = 1..10000</a>
%p A089740 A055120:= proc(n) local L;
%p A089740 L:= map(t -> -t mod 10, convert(n,base,10));
%p A089740 add(L[i]*10^(i-1),i=1..nops(L))
%p A089740 end proc:
%p A089740 filter:= t -> isprime(t) and isprime(A055120(t)):
%p A089740 select(filter, [seq(i,i=3..1000,2)]); # _Robert Israel_, Jun 29 2018
%t A089740 b=Delete[Union[ Table[If[PrimeQ[a[[n]]]==True,a[[n]],0],{n,1,Dimensions[a][[1]]}]],1]
%Y A089740 Cf. A055120.
%K A089740 nonn,base
%O A089740 1,1
%A A089740 _Roger L. Bagula_, Jan 08 2004
%E A089740 Edited by _Charles R Greathouse IV_, Oct 28 2009
%E A089740 Name clarified by _Robert Israel_, Jun 29 2018