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 A050757 #14 Oct 17 2019 14:26:47
%S A050757 2,3,5,7,13,17,19,23,29,31,37,41,43,47,53,59,61,67,71,73,79,83,89,97,
%T A050757 101,103,107,109,127,131,137,139,149,151,157,163,167,173,179,181,191,
%U A050757 193,197,239,241,251,257,263,269,271,281,283,293,307,313,317,347,349
%N A050757 Primes containing no pair of consecutive equal digits.
%t A050757 t={}; Do[p = Prime[n]; If[!MemberQ[Differences[IntegerDigits[p]],0], AppendTo[t,p]], {n,70}]; t (* _Jayanta Basu_, May 04 2013 *)
%Y A050757 Cf. A043096, A000040, A050758, A029743.
%K A050757 nonn,base
%O A050757 1,1
%A A050757 _Patrick De Geest_, Sep 15 1999
%E A050757 Offset corrected by _Arkadiusz Wesolowski_, Jan 12 2012