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 A242975 #18 Aug 10 2017 10:25:59 %S A242975 17,18,34,40,100,143,275,326,334,365,412,420,453,501,504,507,610,622, %T A242975 642,743,825,840,841,864,866,875,878,898,920,926,941,948,956,963,1009, %U A242975 1054,1059,1078,1147,1158,1180,1203,1283,1292,1306,1338,1355,1362,1407,1469 %N A242975 Positions in e and Pi where the digit at each position is equal and prime. %H A242975 Jens Kruse Andersen, <a href="/A242975/b242975.txt">Table of n, a(n) for n = 1..10000</a> %e A242975 Pi = 3.1415926535897932384626... %e A242975 ......................||........ %e A242975 _e = 2.7182818284590452353602... %t A242975 Module[{nn=1500,th},th=Thread[{RealDigits[Pi,10,nn][[1]],RealDigits[ E,10,nn] [[1]]}];Position[th,_?(#[[1]]==#[[2]]&&PrimeQ[#[[1]]]&), 1,Heads->False]]//Flatten (* _Harvey P. Dale_, Aug 10 2017 *) %o A242975 (PARI) \p 1500 %o A242975 e=Vec(Str(exp(1))); p=Vec(Str(Pi)); for(i=3, #e-9, if(e[i]==p[i] && isprime(eval(e[i])), print1(i-1", "))) \\ _Jens Kruse Andersen_, Jul 23 2014 %Y A242975 Cf. A052055, A153031, A242973. %K A242975 nonn,base %O A242975 1,1 %A A242975 _Philip Mizzi_, May 28 2014