%I#17 2020年9月6日11:12:28

%编号：16,32,802247202976151209244870459264552069518032897158048，

%电话：12700875536203746961696367412428808074060581880032，

%电话：16928602947263635242020514867170208114462689643506766433222330682700081440

%N a（N）=f（a（N-1）），其中f（m）=总和i*b（i）*2^（i-1），m=总和b（i。

%C以前的名字是：对于N=总和a（i）.2^i，a（i；序列给出16的n阶导数。

%实际上，f（n）表示n=0，1，2。。。给出了0、0、1、1、4、4、5、5、12、12、13、13、16、17、17、32、32、33、33、36。。。那是A136013_米歇尔·马库斯（Michel Marcus），2013年7月18日【以下是A136013中的评论。】_Pontus von Brömssen，2020年9月6日]

%F a（n）=16*A007823（n）.-_Pontus von Brömssen，2020年9月6日

%o（PARI）D（n）={b=二进制（n）；lb=#b；rb=矢量（lb，i，b[lb-i+1]）；return（sum（i=0，lb-1，i*2^（i-1）*rb[i+1]））；}

%o lista（nn）={m=16；对于（n=0，nn，print1（m，“，”）；m=D（m）；）；}马库斯，2013年7月18日

%Y参考A007823，A136013。

%K nonn公司

%0、1

%A Ralph Buchholz[Ralph（AT）defcen.gov.au]，利萨·孔迪

%E由米歇尔·马库斯编辑，2013年7月18日