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 A171034 #9 Mar 31 2017 11:11:06 %S A171034 2,3,5,0,11,13,10,19,23,29,31,30,41,43,40,53,59,61,60,1,3,9,83,89,90, %T A171034 171,173,170,179,113,120,131,130,139,149,151,150,163,160,103,109,181, %U A171034 191,193,190,199,211,223,220,229,233,239,241,251,250,263,269 %N A171034 In the sequence of prime numbers, replace all the '7' digits with '0' and vice versa. %H A171034 Vincenzo Librandi, <a href="/A171034/b171034.txt">Table of n, a(n) for n = 1..1000</a> %t A171034 FromDigits[IntegerDigits[#]/.{7->p, 0->q}/.{p->0, q->7}]&/@Prime[Range[100]] (* _Vincenzo Librandi_, Apr 07 2013 *) %o A171034 (PARI) a(n)=my(v=[7,1,2,3,4,5,6,0,8,9]);subst(Pol(apply(k->v[k+1], digits(prime(n)))),'x,10) \\ _Charles R Greathouse IV_, Jul 25 2013 %K A171034 nonn,base,easy %O A171034 1,1 %A A171034 _N. J. A. Sloane_ and _Vincenzo Librandi_, Sep 04 2010