login
This site is supported by donations to The OEIS Foundation.

 

Logo


Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A052055 Positions in both Pi and e indicate a common digit. 6
13, 17, 18, 21, 34, 40, 45, 56, 59, 70, 81, 95, 100, 143, 170, 206, 244, 263, 275, 279, 294, 324, 326, 331, 334, 361, 365, 388, 389, 396, 412, 420, 428, 429, 453, 460, 461, 462, 484, 494, 500, 501, 504, 507, 512, 523, 526, 548, 582, 591, 595, 596, 599, 603 (list; graph; refs; listen; history; text; internal format)
OFFSET

1,1

LINKS

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

EXAMPLE

Pi = 3.1415926535897932384626...

..................|...||..|.....

_e = 2.7182818284590452353602...

MAPLE

N:= 1000: # to get all terms <= N+1

Fpi:= convert(floor(10^N*Pi), base, 10):

Fe:= convert(floor(10^N*exp(1)), base, 10):

select(t -> Fpi[N+2-t] = Fe[N+2-t], [$2..N+1]); # Robert Israel, Jul 23 2014

MATHEMATICA

ed=RealDigits[N[E, 2000]][[1]]; pd=RealDigits[N[\[Pi], 2000]][[1]]; okQ[n_] := Take[ed, {n}] == Take[pd, {n}]; Select[Range[2000], okQ] (* Harvey P. Dale, Jan 05 2011 *)

Module[{nn=3000, pid, ed}, pid=RealDigits[Pi, 10, nn][[1]]; ed=RealDigits[ E, 10, nn] [[1]]; Flatten[ Position[Transpose[{pid, ed}], {x_, x_}]]] (* Harvey P. Dale, Dec 19 2015 *)

PROG

(PARI) \p 1000

e=Vec(Str(exp(1))); p=Vec(Str(Pi)); for(n=3, #e-9, if(e[n]==p[n], print1(n-1", "))) \\ Jens Kruse Andersen, Jul 23 2014

CROSSREFS

Cf. A000796, A001113, A257492, A257494.

Sequence in context: A066918 A164062 A117326 * A272119 A075761 A046064

Adjacent sequences:  A052052 A052053 A052054 * A052056 A052057 A052058

KEYWORD

nonn,base

AUTHOR

Patrick De Geest, Dec 15 1999

EXTENSIONS

More terms from James A. Sellers, Dec 28 1999

STATUS

approved

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

License Agreements, Terms of Use, Privacy Policy. .

Last modified July 20 05:56 EDT 2019. Contains 325168 sequences. (Running on oeis4.)