%我#12 2023年12月15日18:51:18
%S 41827173200134116024189487号
%N A082180中不是素数平方或立方的术语。
%C A082180中A168363的补体。
%C是否还有其他类似418的术语不在A228562中?
%C 2*10^10以下无其他条款。-_马克斯·阿列克塞耶夫,2023年12月15日
%t选择[Range[30000],CompositeQ[#]&&Not[IntegerQ[Sqrt[#]]&&Not[IntegerQ[#^(1/3)]]&&Mod[二项式[2*#,#],#]==2&](*_Vaclav Kotesovec_,2019年10月17日*)
%o(PARI)用于复合(c=1,如果(!setintersect(Set(isprimepower(c)),[2,3]),如果(Mod(二项式(2*c,c),c)==2,print1(c,“,”))
%Y奇数项形成A228562。
%Y参考A082180,A168363。
%K nonn,难,更多
%O 1,1号机组
%A_Felix Fröhlich,2019年10月17日
%E a(4)摘自_Max Alekseyev,2023年12月15日
|