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,1

Links

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

Example

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

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

Prog

(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

Crossrefs

Cf. A052055, A153031, A242973.

Sequence in context: A226673 A151978 A111054 * A155561 A231505 A022107

Adjacent sequences: A242972 A242973 A242974 * A242976 A242977 A242978

Keyword

nonn,base

Author

Philip Mizzi, May 28 2014

Status

approved