%I#12 2018年11月17日21:22:40
%S 1,9,25,5712111453193113852776960537191609453753978041,
%电话:20266171041522527192441943013052285190334969544892644438137,
%电话:112343727292841424191362773980281131493457017268932410489543810317433
%N写(sqrt(5)-1)/2作为二进制分数;从左到右阅读,每当出现1时,请注意从1向左读取形成的整数。
%e(sqrt(5)-1)/2=0.6180339887498948204586834365638117720309179805762862135…=0.10111101111001111100101101100111110000101011111000111011100011011011011…二进制。
%t d=100;l=第一个[RealDigits[N[(Sqrt[5]-1)/2,d],2]];Do[m=取[l,n];k=长度[m];如果[m[[k]]==1,打印[FromDigits[Reverse[m],2]],{n,1,d}](*_Ryan Propper_,2005年8月18日*)
%Y参见A094214、A099969、A099970、A099972、A099973、A099974。
%K nonn,简单
%0、2
%A _N.J.A.Sloane,2004年11月13日,基于Artur Jasinski的信件,2003年3月25日
%E 2005年8月18日_Ryan Propper_的更多条款
|