A242975 Positions in e and Pi where the digit at each position is equal and prime.

17, 18, 34, 40, 100, 143, 275, 326, 334, 365, 412, 420, 453, 501, 504, 507, 610, 622, 642, 743, 825, 840, 841, 864, 866, 875, 878, 898, 920, 926, 941, 948, 956, 963, 1009, 1054, 1059, 1078, 1147, 1158, 1180, 1203, 1283, 1292, 1306, 1338, 1355, 1362, 1407, 1469

Offset: 1

Author

Philip Mizzi, May 28 2014

Keywords

• nonn
• base

Examples

			Pi = 3.1415926535897932384626...
......................||........
_e = 2.7182818284590452353602...
		

Links

• Jens Kruse Andersen, Table of n, a(n) for n = 1..10000

Crossrefs

Cf. A052055, A153031, A242973.

Programs

Mathematica

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 *)

PARI

\p 1500
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