The OEIS is supported by the many generous donors to the OEIS Foundation.

 Hints (Greetings from The On-Line Encyclopedia of Integer Sequences!)
 A131660 Positions at which the sum of the digits of e up to that point equals the sum of the digits of Pi up to that point. 1
 218, 241, 264, 269, 280, 287, 354, 1159, 1836, 1871, 1872, 1886, 1891, 1892, 1914, 5023, 5026, 5039, 9165, 9170, 9171, 9180, 15166, 17909, 91192, 91194, 91277, 91289, 91290, 91293, 92029, 92031, 92033, 92038, 93913, 93927, 93928, 97369, 97839 (list; graph; refs; listen; history; text; internal format)
 OFFSET 1,1 COMMENTS Numbers n such that A046974(n) = A046975(n). - Robert G. Wilson v, Sep 16 2007 LINKS Robert G. Wilson v, Table of n, a(n) for n = 1..4105. Eric Weisstein's World of Mathematics, e. Eric Weisstein's World of Mathematics, PI. EXAMPLE a(1)=218 because the sum of the first 218 digits of e (including the initial 2) equals 987. That is the same result for the first 218 digits of Pi (including the initial 3). MATHEMATICA de = First@ RealDigits[E, 10, 10^5]; dse = 0; dpi = First@ RealDigits[Pi, 10, 10^5]; dspi = 0; lst = {}; Do[ dse = dse + de[[n]]; dspi = dspi + dpi[[n]]; If[dse == dspi, AppendTo[lst, n]; Print@n], {n, 10^5}] (* Robert G. Wilson v, Sep 16 2007 *) Module[{nn=100000, ed, pd}, ed=Accumulate[RealDigits[E, 10, nn][[1]]]; pd= Accumulate[ RealDigits[Pi, 10, nn][[1]]]; Flatten[Position[Thread[ {ed, pd}], _?(#[[1]]==#[[2]]&), {1}, Heads->False]]] (* Harvey P. Dale, Feb 18 2015 *) CROSSREFS Cf. A000796, A001113. Sequence in context: A038662 A121379 A171404 * A260496 A038595 A045239 Adjacent sequences: A131657 A131658 A131659 * A131661 A131662 A131663 KEYWORD base,nonn AUTHOR Sergio Pimentel, Sep 13 2007 EXTENSIONS More terms from Robert G. Wilson v, Sep 16 2007 a(6) corrected by N. J. A. Sloane, Nov 23 2007 STATUS approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recents
The OEIS Community | Maintained by The OEIS Foundation Inc.

Last modified May 31 12:47 EDT 2023. Contains 363066 sequences. (Running on oeis4.)