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 A088290 #14 Oct 30 2024 12:19:49
%S A088290 1021,1087,1201,1223,1289,1447,1559,1627,2053,2143,2389,2503,2659,
%T A088290 2749,3041,3221,3467,3557,3917,4051,4073,4231,4253,4297,4523,4567,
%U A088290 4657,4679,4703,5443,5623,5689,5779,5869,6521,6701,6857,6947,7193,7283,7351,7621
%N A088290 Prime numbers in which the sum of the external digits = the sum of the internal digits.
%H A088290 Robert Israel, <a href="/A088290/b088290.txt">Table of n, a(n) for n = 1..10000</a>
%e A088290 1021 is a member 1+1 = 0+2 = 2..
%p A088290 filter:= proc(n) local L,i;
%p A088290 if not isprime(n) then return false fi;
%p A088290 L:= convert(n,base,10);
%p A088290 L[1] + L[-1] = add(L[i],i=2..nops(L)-1)
%p A088290 end proc:
%p A088290 select(filter, [seq(i,i=101..10^4,2)]); # _Robert Israel_, Oct 30 2024
%t A088290 edidQ[n_]:=Module[{idn=IntegerDigits[n]},idn[[1]]+idn[[-1]]==Total[Most[ Rest[idn]]]]; Select[Prime[Range[169,3000]],edidQ] (* _Harvey P. Dale_, Apr 20 2012 *)
%Y A088290 Primes in A101317.
%Y A088290 Cf. A076167.
%K A088290 base,nonn
%O A088290 1,1
%A A088290 _Amarnath Murthy_, Sep 29 2003
%E A088290 More terms from _David Wasserman_, Aug 04 2005
%E A088290 Offset changed by _Andrew Howroyd_, Sep 19 2024