A331103-OEIS公司

A331103型

T（n，k）=-（-1）^k*k^2 mod p，其中p是2或3 mod 4的第n素数同余；三角形T（n，k），n>=1，0<=k<=p-1，按行读取。

0, 1, 0, 1, 2, 0, 1, 3, 2, 5, 4, 6, 0, 1, 7, 9, 6, 3, 8, 5, 2, 4, 10, 0, 1, 15, 9, 3, 6, 2, 11, 12, 5, 14, 7, 8, 17, 13, 16, 10, 4, 18, 0, 1, 19, 9, 7, 2, 10, 3, 5, 12, 15, 6, 17, 8, 11, 18, 20, 13, 21, 16, 14, 4, 22, 0, 1, 27, 9, 15, 25, 26, 18, 29, 19, 24

(列表;图表;参考;听;历史;文本;内部格式)

抵消

1,5

第n行是{0，1，…，的排列。。。，A045326号（n） -1}。

链接

阿洛伊斯·海因茨，行n=1..75，扁平

例子

三角形T（n，k）开始于：

0, 1;

0, 1, 2;

0, 1, 3, 2, 5, 4, 6;

0, 1, 7, 9, 6, 3, 8, 5, 2, 4, 10;

0, 1, 15, 9, 3, 6, 2, 11, 12, 5, 14, 7, 8, 17, 13, 16, 10, 4, 18;

...

MAPLE公司

b： =proc（n）选项记忆；局部p；

p： =1+`如果`（n=1，1，b（n-1））；

而irem（p，4）<2dop:=下一素数（p）od；第页

结束时间：

T： =n->（p->seq（modp（-（-1）^k*k^2，p），k=0..p-1））（b（n））：

seq（T（n），n=1..8）；

数学

b[n_]：=b[n]=模[{p}，p=1+如果[n==1，1，b[n-1]]；当[Mod[p，4]<2时，p=NextPrime[p]]；p] ；

T[n_]：=使用[{p=b[n]}，表[Mod[-（-1）^k*k^2，p]，{k，0，p-1}]]；

表[T[n]，{n，1，8}]//扁平(*Jean-François Alcover公司，2021年10月29日，之后阿洛伊斯·海因茨*)

交叉参考

k=0-1列给出：A000004号,A000012号.

行的最后元素给出281664元.

行长度给出A045326美元.

行总和给出A000217号(A281664型（n））。

囊性纤维变性。A331047飞机.

上下文中的序列：A097609号 226692元 A077884号*A267724型 A179329号 A089112号

相邻序列：A331100型 A331101型 A331102型*A331104型 A331105型 A331106型

关键字

非n,看,标签

作者

阿洛伊斯·海因茨2020年1月9日

状态

经核准的