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 A090933 #8 Dec 01 2015 20:20:16
%S A090933 2,3,5,7,11,13,17,31,37,71,73,79,97,101,107,113,131,149,167,179,181,
%T A090933 191,199,311,337,373,389,701,709,727,733,739,751,757,787,797,907,919,
%U A090933 937,941,953,991,1009,1013,1031,1049,1051,1091,1123,1181,1319,1321,1381
%N A090933 Primes such that most significant digit swapped with all other digits yields primes.
%C A090933 Appears to be denser than A090934, where the least significant digit is swapped.
%e A090933 149 is a term as 149, 419 & 491 are all prime.
%t A090933 fQ[n_] := Block[{a = c = IntegerDigits[n], b = {}, l = Floor[ Log[10, n] + 1]}, Do[ a = c; {a[[1]], a[[i]]} = {a[[i]], a [[1]]}; AppendTo[b, FromDigits[a]], {i, 1, l}]; Union[ PrimeQ[b]] == {True}]; Select[ Prime[ Range[ 270]], fQ[ # ] &] (* _Ed Pegg Jr_, Jan 15 2004 *)
%Y A090933 Cf. A090934.
%K A090933 base,nonn
%O A090933 1,1
%A A090933 _Amarnath Murthy_, Dec 29 2003
%E A090933 Edited, corrected and extended by _Robert G. Wilson v_, Jan 15 2004