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 A052030 #14 Mar 21 2015 01:58:46 %S A052030 19,23,37,67,79,103,127,191,193,211,229,277,311,313,337,379,409,433, %T A052030 443,577,613,619,631,643,647,653,787,857,883,907,919,947,997,1021, %U A052030 1039,1087,1097,1123,1171,1279,1423,1429,1447,1459,1471,1567,1597,1669,1693 %N A052030 Primes base 10 that remain primes in four bases b, 2<=b<=10, expansions interpreted as decimal numbers. %H A052030 Sebastian Petzelberger, <a href="/A052030/b052030.txt">Table of n, a(n) for n = 1..10000</a> %H A052030 C. Rivera, <a href="http://www.primepuzzles.net/puzzles/puzz_024.htm">PP&P Puzzle 24: Primes in several bases</a> %e A052030 19 is 103_4, 31_6, 23_8 and 19_10. %t A052030 Select[Prime[Range@ 265], Count[PrimeQ /@ Table[FromDigits[IntegerDigits[#, i]], {i, 2, 10}], True] == 4 &] (* _Michael De Vlieger_, Mar 20 2015 after _Harvey P. Dale_ at A052032 *) %Y A052030 Cf. A038537, A052026-A052033. %K A052030 nonn,base %O A052030 1,1 %A A052030 _Patrick De Geest_, Dec 15 1999