%I#45 2021年4月8日07:38:06

%S 0、1、1、1、0、1、0、1、4、1、0、1、4、1、0、1、4、1、4、1、0、1、4、2、4、1、0、1、4、1、0、1、4，

%温度1,0,1,4,0,7,7,0,4,1,0,1,4],9,6,6,9,4,1,1,0,1,4,9,5,3,5,9,0,1,1,4，

%U 9,4,1,0,1,4,9,4,1,0,1,4]9,3,12,10,10,12,3,9,4-1,0

%N按行读取的三角形数组T：T（N，k）=k^2 mod N，对于1<=k<=N，N>=1。

%H T.D.Noe，<a href=“/A048152/b048152.txt”>n=1..100行三角形，扁平</a>

%H Eric Weisstein的数学世界，<a href=“http://mathworld.wolfram.com/QuadraticRestival.html“>二次剩余</a>

%F T（n，k）=A133819（n，k）mod n，k=1..n.-Reinhard Zumkeller，2013年4月29日

%F T（n，k）=（T（n、k-1）+（2k+1））mod n.-Andrés Ventas，2021年4月6日

%e行：

%e 0；

%e 1，0；

%e 1，1，0；

%e 1，0，1，0；

%e 1、4、4、1、0；

%e 1、4、3、4、1、0；

%t扁平[表[PowerMod[k，2，n]，{n，15}，{k，n}]]（*哈维·P·戴尔，2011年6月20日*）

%o（哈斯克尔）

%o a048152 n k=a048152_tabl！！（n-1）！！（k-1）

%o a048152_row n=a048152 _ tabl！！（n-1）

%o a048152_tabl=zipWith（map.flip mod）[1..]a133819_tabl

%o——Reinhard Zumkeller，2013年4月29日

%Y参考A060036。

%Y参见A225126（中心术语）。

%Y参见A070430（第5行）、A070431（第6行）、P053879（第7行）、C070432（第8行）、AO08959（第10行）、A1070435（第12行）、A2070438（第15行）、A3070422（第20行）。

%Y参考A046071（升序，无零和重复）。

%Y参考A063987（对于素数，按升序排列，没有零和重复）。

%K nonn，tabl，很好，很容易

%O 1,12号

%百灵鸟金伯利_