[seqfan] Re: A068441

[Peter Pein]

Am 22.03.2012 20:31, schrieb Harvey P. Dale:
> 	Using the following Mma program, I get terms for the above
> sequence that are significantly different than the terms now shown:
>
> 	
> With[{eb2=RealDigits[E,2,150][[1]],pb2=RealDigits[Pi,2,150][[1]]},Select
> [Range[130],eb2[[#]]==pb2[[#]]&]]
>
> Could someone please check this and either correct me or confirm my
> results?  In the latter case, I'll change the sequence by providing the
> proper terms and the Mma program.
>
> 	Best,
>
> 	Harvey
>
>
> _______________________________________________
>
> Seqfan Mailing list - http://list.seqfan.eu/
>


A068441 compares just the fractional parts. You'll have to drop the 
first two digits.

Position[
   Subtract @@ (RealDigits[#, 2, 150][[1, 3 ;;]] & /@ {E, Pi}),
   0, 1] // Flatten

gives A068441 too.

Peter