login
Partition the decimal digits of Pi and e into groups of two. The sequence gives the positions where those two-digit groups match.
1

%I #40 Oct 09 2019 17:37:44

%S 17,388,428,460,461,500,595,607,840,962,963,1058,1253,1743,1798,1810,

%T 1815,1843,1932,1975,2059,2060,2368,2526,2558,2857,2900,3419,3430,

%U 3519,3906,4174,4175,4314,4422,4493,4498,4527,4547,4570,4684,4782,5019,5147,5148

%N Partition the decimal digits of Pi and e into groups of two. The sequence gives the positions where those two-digit groups match.

%H Harvey P. Dale, <a href="/A327732/b327732.txt">Table of n, a(n) for n = 1..10000</a>

%e Illustration for a(1) = 17 from _N. J. A. Sloane_, Oct 09 2019:

%e 3.141592653589793*23*8462...

%e 2.718281828459045*23*5360...

%t Module[{nn=10000,pid,ed,wd=2},pid=FromDigits/@Partition[RealDigits[Pi,10,nn][[1]],wd,1];ed=FromDigits/@Partition[RealDigits[E,10,nn][[1]],wd,1];Position[Thread[{pid,ed}],_?(#[[1]]==#[[2]]&),1,Heads->False]]//Flatten

%Y Cf. A000796 (Pi), A001113 (e).

%K nonn,base

%O 1,1

%A _Harvey P. Dale_, Oct 09 2019