|
%I #7 Mar 29 2014 10:55:11
%S 12,99,169,395,499,595,606,693,824,827,840,940,1282,1291,1384,1594,
%T 1705,1742,1905,2020,2060,2153,2257,2302,2359,2367,2507,2546,2557,
%U 2710,2724,2791,2832,2857,3036,3051,3280,3309,3429,3497,3518,3591,3651,3709,3867
%N Decimal positions where Pi, E and Phi are the same.
%H Harvey P. Dale, <a href="/A090230/b090230.txt">Table of n, a(n) for n = 0..1000</a>
%t dpQ[{a_,b_,c_}]:=a==b==c; Module[{nn=4000,p,e,f},p=RealDigits[Pi,10,nn][[1]]; e=RealDigits[E,10,nn][[1]];f=RealDigits[GoldenRatio,10,nn][[1]]; Flatten[Position[Thread[{p,e,f}],_?dpQ]]-1] (* _Harvey P. Dale_, Dec 20 2012 *)
%K nonn,base
%O 0,1
%A Jason Rodgers (Jason628(AT)hotmail.com), Jan 22 2004
|
