|
|
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
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
LINKS
|
|
|
EXAMPLE
|
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
|
|
|
KEYWORD
|
nonn,base
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|