login
A327732
Partition the decimal digits of Pi and e into groups of two. The sequence gives the positions where those two-digit groups match.
1
17, 388, 428, 460, 461, 500, 595, 607, 840, 962, 963, 1058, 1253, 1743, 1798, 1810, 1815, 1843, 1932, 1975, 2059, 2060, 2368, 2526, 2558, 2857, 2900, 3419, 3430, 3519, 3906, 4174, 4175, 4314, 4422, 4493, 4498, 4527, 4547, 4570, 4684, 4782, 5019, 5147, 5148
OFFSET
1,1
LINKS
EXAMPLE
Illustration for a(1) = 17 from N. J. A. Sloane, Oct 09 2019:
3.141592653589793*23*8462...
2.718281828459045*23*5360...
MATHEMATICA
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
CROSSREFS
Cf. A000796 (Pi), A001113 (e).
Sequence in context: A318043 A012639 A350926 * A012200 A340972 A340353
KEYWORD
nonn,base
AUTHOR
Harvey P. Dale, Oct 09 2019
STATUS
approved