login
A068441
Numbers k such that the k-th digit is the same in e and Pi expansions in base 2.
1
2, 3, 5, 6, 11, 16, 17, 18, 22, 28, 30, 32, 33, 34, 35, 36, 41, 43, 44, 48, 49, 50, 52, 53, 54, 56, 58, 62, 63, 66, 68, 71, 72, 73, 76, 78, 79, 80, 83, 85, 86, 88, 90, 92, 96, 98, 99, 106, 107, 108, 109, 111, 112, 114, 115, 116, 117, 118, 119, 120, 122, 123, 124, 125
OFFSET
1,1
COMMENTS
"Digit" refers to the sequence of digits past the period, 1st digit having value 1/2:
00100100001111110110... for Pi and
10110111111000010101... for exp(1). - R. J. Mathar, Mar 22 2012
LINKS
MATHEMATICA
With[{eb2=Drop[RealDigits[E, 2, 150][[1]], 2], pb2=Drop[RealDigits[Pi, 2, 150] [[1]], 2]}, Select[Range[130], eb2[[#]]==pb2[[#]]&]] (* Harvey P. Dale, Mar 22 2012 *)
PROG
(PARI) E=binary(exp(1))[2]; P=binary(Pi)[2]; for(n=1, min(#E, #P), E[n]==P[n] && print1(n", ")) \\ M. F. Hasler, Mar 22 2012
(PARI) E=exp(1); for(n=1, 150, (Pi\.5^n-E\.5^n)%2 || print1(n", ")) \\ M. F. Hasler, Mar 22 2012
CROSSREFS
Sequence in context: A034407 A280218 A294526 * A376986 A268935 A112598
KEYWORD
easy,nonn,base
AUTHOR
Benoit Cloitre, Mar 09 2002
STATUS
approved