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 A136098 #16 Apr 27 2025 16:55:49
%S A136098 101,16061,31013,35053,38083,73037,74047,91019,94049,1120211,1150511,
%T A136098 1160611,1180811,1190911,1250521,1280821,1360631,1390931,1490941,
%U A136098 1520251,1550551,1580851,1630361,1640461,1660661,1670761,1730371
%N A136098 Prime palindromic cyclops numbers.
%C A136098 Prime entries of A138131.
%H A136098 Robert Israel, <a href="/A136098/b136098.txt">Table of n, a(n) for n = 1..10000</a>
%p A136098 f:= proc(n,d) local L,m,k,p;
%p A136098 L:= convert(9^d+n,base,9);
%p A136098 p:= add((1+L[d+1-i])*(10^(i-1)+10^(2*d+1-i)),i=1..d);
%p A136098 if isprime(p) then p fi;
%p A136098 end proc:
%p A136098 [seq(seq(f(i,d),i=0..9^d-1),d=1..3)]; # _Robert Israel_, Feb 18 2018
%t A136098 Select[Flatten[Table[Select[Range[10^(2n), 10^(2n+1)-1], PalindromeQ[ #] && DigitCount[ #, 10, 0]==1&&IntegerDigits[#][[(IntegerLength[#]+1)/2]]==0&], {n, 3}]],PrimeQ] (* _James C. McMahon_, Apr 27 2025 *)
%Y A136098 Cf. A082435, A138131, A134808, A134809.
%K A136098 nonn,base
%O A136098 1,1
%A A136098 _Lekraj Beedassy_, Mar 15 2008