%I#6 2019年6月16日08:08:11

%S 0,0,1,3,1,3,2,1,3,2,1,2,1,1,3,1,2,1,2,3,1,1,3,3,3,12,3,2，

%温度2,1,3,2,1,3,1,3,2,2,1,32,2,2,3,1,2,3,1,1,3,1,1,3,2,1,31,3,1，

%U 3,2,1,3,2,2,1,3,2,1,3,1,3,2,1,3,2,1,3,2,1,3,2,1,3,2,1,3,1,3,1,3,2,1,3,1,3,2,1,3,1,3,2,1,3,1,3,2,2,1,3,2,2,1,3

%N A000002的向后van Eck变换。

%C给定一个序列a，反向van Eck变换b的定义如下：如果a（n）已经出现在a中，则a（m）是最近出现的，集b（n）=n-m；否则b（n）=0。

%C A000002的正向van Eck变换是A078929。

%p ECKb:=程序（a）局部b，i，m，n；

%p如果是whattype（a）<>list，则返回（[]）；图1：

%p b:=[0]；

%p代表n从2到nops（a）do

%p#a（n）以前出现过吗？

%p m：=0；

%i的p从n-1乘以-1到1do

%p如果（a[i]=a[n]），则m:=n-i；断裂；fi（菲涅耳）

%日期：

%p b：=[op（b），m]；

%日期：

%p返回（b）；

%p端：

%Y参考A000002、A181391、A171898、A078929。

%K nonn公司

%O 1,4型

%A _N.J.A.Sloane，2010年10月22日