%I#16 2018年1月25日09:34:43

%S 0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,1,0,3,2,5,4,7,6,9,8,11,10,13，

%电话：12,15,14,2,3,0,16,7,4,5,10,11,8,9,14,15,12,13,3,2,1,0,7,6,4,11,10，

%U 9,8,15,14,13,12,4,5,6,7,0,12,3,12,13,14,15,8,9,10,11,5,4,7,6,10,3,2,13

%N a（N）=如果N<16，则N else a（地板（N/16））XOR（N mod 16）。

%一个非常简单的非负整数哈希函数。

%Ca（A000079（n））=A133145（n）；a（A00002（n））=A010685（n）；a（A001025（n））=A161452（n）；a（A161440（n））=0；a（A161441（n））=1；a（A161442（n））=2；a（A161443（n））=3；a（A161444（n））=4；a（A161445（n））=5；a（A161446（n））=6；a（A161447（n））=7；a（A161448（n））=8；a（A161449（n））=9；a（A161450（n））=10；a（A161451（n））=11；a（A161452（n））=12；a（A161453（n））=13；a（A161454（n））=14；a（A161455（n））=15.-_Reinhard Zumkeller_，2009年6月10日

%H R.Zumkeller，n的表，n=0..100000的a（n）</a>

%p读取（“转换”）；

%p A160700：=进程（n）

%如果n<16，则为p

%p n；

%p其他

%p异或数（进程名（楼层（n/16）），模块（n，16））

%p end if；

%最终程序：#R.J.Mathar_，2016年7月12日

%t a[n_]：=a[n]=如果[n<16，n，a[Floor[n/16]]~BitX或~Mod[n，16]]；

%t表[a[n]，{n，0，100}]（*Jean-François Alcover_，2018年1月25日*）

%o（最大值）

%o负载（功能）$

%o A160700（n）：=如果n<16，则n else logxor（地板（n/16），模块（n，16））$

%o名单（A160700（n），n，0,60）；/*_Martin Ettl，2012年11月5日*/

%o（哈斯克尔）

%o导入数据。位（xor）

%o a160700 n=a160700_列表！！n个

%o a160700_list=[0..15]++映射f[16..]其中

%o f x=a160700 x’`xor`m:：Int其中（x'，m）=divMod x 16

%o——Reinhard Zumkeller，2012年11月7日

%o（PARI）a（n）=我的（t=n%16）；而（n>15，n>>=4；t=bitxor（t，n%16））；t\\_Charles R Greathouse IV_，2018年1月25日

%K nonn，简单

%0、3

%A _Reinhard Zumkeller，2009年6月1日