%I#9 2017年5月21日07:31:37

%S 1,0,1,1,0,4,0,1,1,2,1,0,4,0,1,1,3,10,1,4,0,5,10,15,0,1,4,1,9，

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

%U 5,28,0,4,4,1,1,8,11,6,28,20,33,1,1,4,1,4,0,16,17,8,24,14,21,5,0,1,0

%N行读取的三角形：T（N，k）=N^2 mod prime（k），1<=k<=N。

%C T（n，k）=0，如果k是n的素因子：

%C A001221（n）=第n行中的零个数；

%C T（n，1）=A000035（n）；

%对于n>1，C T（n，2）=A011655（n）；当n>2时，T（n，3）=A070430（n）；

%对于n>3，C T（n，4）=A053879（n）；当n>4时，T（n，5）=A070434（n）；

%当n＞5时，CT（n，6）=A070436（n）；当n>6时，T（n，7）=A054580（n）；

%对于n>7，C T（n，8）=A070441（n）；当n>8时，T（n，9）=A070445（n）；

%对于n>9，C T（n，10）=A070451（n）；

%C T（n，n）=A069547（n）。

%H G.C.Greubel，n表，a（n）用于前50行，扁平</a>

%e三角形开始：

%e 1；

%e 0，1；

%e 1、0、4；

%e 0、1、1、2；

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

%e 0、0、1、1、3、10；

%e 1、1、4、0、5、10、15；

%e。。。。。。

%t表[Mod[n^2，Prime[k]]，{n，1，10}，{k，1，n}]（*_G.C.Greubel_，2017年5月20日*）

%Y参考A000290、A000040、A049759。

%K nonn，表

%O 1,6型

%A _Reinhard Zumkeller，2004年8月12日