这个洛杜莫米序列s(n)的变换(有时写lod米s) 由a(n)=列表a中尚未包含的最小非负整数定义,使得a(n”)≡s(n)(mod m)。它不是数学文献中的标准转换,但偶尔在OEIS中使用。它是由菲利普·德莱姆创作的。
它创建了一个没有重复项的序列,该序列相当于原始序列mod m。生成的序列是非负整数的置换当且仅当所有剩余类modm在原始序列中无限频繁出现。
枫树
#@param L非负数的输入列表#@param m是模运算的余数。这只是有用的#如果是一个大于1的数字。#@return非负数a(n)的序列##示例:生成A160016型从A159833号:#A159833号:=[seq(n^2*(n^2+15)/4,n=0..100)];#洛杜莫(A159833号,2) ;##示例:生成A160081型从A000045号:#A000045号:=[seq(组合[fibonacci](n),n=0..100)];#洛杜莫(A000045号,5) ;##理查德·马塔尔,2009-04-30LODUMO:=过程(L,m)局部a、n、an;如果不是类型(L,'list'),则错误(“需要列表类型参数,而不是”,whattype(L));结束条件:;a:=[];n从1到nops(L)do对于从op(n,L)mod m by m do如果不是a中的,则a:=[op(a),an];断裂;fi;日期:末端do;a;结束过程:
波尔
sub-lodumo{#Georg Fischer,2019年2月15日my($m,@list)=@_;我的@a=();我的$il=0;while($il<标量(@list)){我的$busy=1;我的$an=$list[$il]%$m;while($busy==1){if(标量(grep{$_==$an}@a)==0){push(@a,$an);$busy=0;}$an+=百万美元;}#while$忙$il++;}#同时返回@a;}#sub-lodumo号我的@a=&lodumo($m,@list);for(my$n=0;$n<标量(@list)$n++){打印“$n$a[$n]\n”;}#的
将此引用为
Charles R Greathouse IV和Georg Fischer,Lodumo变换.— 来自在线整数序列百科全书®Wiki(OEIS®Wiki)。[https://oeis.org/wiki/Lodumo_transform网站]