年度呼吁:请向OEIS基金会捐款支持OEIS的持续开发和维护。现在是我们的第61年,我们有超过378000个序列,我们已经获得了11000条引文(通常说“多亏了OEIS才发现”)。
Jean-François Alcover,<a href=“/A372798飞机/b372798号_1.txt“>n、a(n)表,n=1..1000</a>
检验过的
经核准的
OEIS服务器:安装的第一个b文件为b372798.txt。
提出
编辑
Jean-François Alcover,<a href=“/A372798飞机/b372798_1.txt“>n表,n=1..1000时为a(n)</a>
a[n]:=一[n个] = 对于[p=2,True,p=NextPrime[p],如果[MultiplicativeOrder[8,p]==(p-1)/n,返回[p]];
a[n_]:=对于[p=2,True,p=NextPrime[p],如果[MultiplicativeOrder[8,p]==(p-1)/n,返回[p]];
表[打印[n,“”,a[n]];a[n],{n,1100}](*Jean-François Alcover公司2024年11月24日*)