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 A056146 #2 Mar 30 2012 17:30:25
%S A056146 2,3,5,373,4289,6761,14891,15083,1311749,1313797,1444901,1530229,
%T A056146 1531253,17480321,17563841,17730241,17734337,27263017,27533417,
%U A056146 27957929,28053737,50339843,50506243,50856067,51122371,61254251
%N A056146 Palindromic primes in bases 4 and 8.
%t A056146 Do[ If[PrimeQ[n], t = RealDigits[n, 8][[1]]; If[FromDigits[t] == FromDigits[Reverse[t]], s = RealDigits[n, 4][[1]]; If[FromDigits[s] == FromDigits[Reverse[s]], Print[n]]]], {n, 1, 10^8, 2}]
%Y A056146 Cf. A029972 and A029976.
%K A056146 nonn,base
%O A056146 1,1
%A A056146 _Robert G. Wilson v_, Jul 29 2000