登录
OEIS由OEIS基金会的许多慷慨捐赠者.

 

标志
提示
(来自的问候整数序列在线百科全书!)
A235866型 G-循环数:使gcd(n,A060968型(n) )=1。 4
1、3、5、7、11、13、15、17、19、21、23、29、31、35、37、41、43、47、51、53、55、57、59、61、65、67、71、73、77、79、83、85、87、89、91、93、97、101、103、105、107、109、113、115、119、123、127、129、131、133、137、139、143、145、149、151、155、157、159、161 (列表;图表;参考文献;;历史;文本;内部格式)
抵消
1,2
评论
发件人罗伯特·伊斯雷尔2020年5月1日:(开始)
所有项都是奇数和平方的。
包含所有奇数素数。
如果n是一个成员,那么n的所有除数也是。
(结束)
链接
罗伯特·伊斯雷尔,n=1..10000时的n,a(n)表
何塞·玛丽亚·格劳(Jose María Grau)、a.M.Oller-Marcen、Manuel Rodriguez和D.Sadornil,高斯基和高斯伪素数的费马检验,arXiv:1401.4708[math.NT],2014年。
MAPLE公司
g: =proc(p,e),如果p=2或e>1,则为0
elif p mod 4=1,然后p-1,否则p+1 fi
结束进程:
h: =进程(n)mul(g(t[1],t[2]),t=ifactors(n)[2])结束进程:
选择(n->igcd(n,h(n))=1,[seq(i,i=1..2000,2)])#罗伯特·伊斯雷尔2020年5月1日
数学
fa=系数整数;φ[1]=1;phi[p_,s_]:=其中[Mod[p,4]==1,p^(s-1)*(p-1),Mod[p,4]==3,pqu(s-1*(p+1),s==1,2,True,2^(s+1)];φ[1]=1;phi[n]:=乘积[phi[fa[n][[i,1]],fa[n][[i,2]]],{i,长度[fa[n]]}];选择[Range[1000],GCD[phi[#],#]==1&]
黄体脂酮素
(PARI)genit(maxx)={arr=List();对于(ptr=1,maxx,如果(gcd(ptr,A060968美元(ptr))==1,列表输入(arr,ptr);棱}
\\********以下代码取自A060968型
A060968型(n) ={my(f=系数(n)[,1]);q=n*prod(i=if(n%2,1,2),#f,if(f[i]%4==1,1-1/f[i],1+1/f[i]]))*if(n%4,1,2中);return(q);}\\比尔·麦克阿欣2021年7月16日
交叉参考
囊性纤维变性。A060968型,A003277号.
关键词
非n
作者
状态
经核准的

查找|欢迎光临|维基|寄存器|音乐|地块2|演示|索引|浏览|更多|网络摄像头
贡献新的seq。或评论|格式|样式表|变换|超级搜索引擎|最近
OEIS社区|维护人OEIS基金会。

许可协议、使用条款、隐私政策。.

上次修改时间:美国东部夏令时2024年4月20日09:30。包含371799个序列。(在oeis4上运行。)