|
%我#2023年3月19日20:32:34
%S 0,1,3,4,7,9,15,21,24,31,41,45,63,64,72,74,83,94127139140173197，
%电话：2072342552682842883393904264454646751152253569634，
%电话：68970673479783893450951102310361052107811791236
%N将自然数存储在三角形数组中，使每行上的值具有相同的位数。用尚未记录的最小数字开始新行。a（n）表示结果数组中的初始项。
%C A067576使用反对偶描述具有固定数量二进制位的序列。
%H Alois P.Heinz，n的表格，n=0..10000的a（n）</a>
%e阵列开始：
%第0页
%e 1 2
%e 3 5 6
%e 4 8 16 32
%e 7 11 13 14 19
%e 9 10 12 17 18 20
%电子15 23 27 29 30 39 43
%e。。。
%e，所以初始条件是0 1 3 4 7 9 15。。。
%p A086772辅助：=进程（n，k）
%p选项记忆；
%p局部a、npr、kpr、fnd；
%p如果n=0，则
%p返回0；
%p end if；
%p如果k=0，则
%p表示从1 do开始的a
%p fnd：=假；
%npr从1到n-1 do的p
%p表示kpr从0到npr-do
%p如果procname（npr，kpr）=a那么
%p fnd:=真；
%p断裂；
%p end if；
%p端do：
%p端do：
%p如果没有fnd那么
%p返回a；
%p end if；
%p端do：
%p其他
%p表示1 do中的a
%p如果wt（a）=wt（procname（n，0）），则
%p fnd：=假；
%npr从1到n-1 do的p
%p表示kpr从0到npr-do
%p如果procname（npr，kpr）=a那么
%p fnd:=真；
%p断裂；
%p end if；
%p端do：
%p端do：
%p表示kpr从0到k-1 do
%p如果procname（n，kpr）=a，则
%p fnd:=真；
%p断裂；
%p end if；
%p端do：
%p如果没有fnd那么
%p返回a；
%p end if；
%p end if；
%p端do：
%p end if；
%p端程序：
%p A086772:=程序（n）
%p A086772aux（n，0）；
%p end程序：#_R.J.Mathar_，2012年9月15日
%Y参见A000079、A001477、A018900、A014311、A014312、A014313、A023688、A023699、A02369、A023591。
%K nonn，基础
%0、3
%A阿诺德，2003年8月3日
| 