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

 

标志
提示
(来自的问候整数序列在线百科全书!)
A065303号 n和sigma(n)都不是平方自由的。 6
12, 24, 27, 28, 32, 40, 44, 48, 52, 54, 56, 60, 63, 68, 75, 76, 81, 84, 88, 90, 92, 96, 98, 99, 108, 112, 120, 124, 125, 126, 132, 135, 136, 140, 147, 150, 152, 153, 156, 160, 162, 164, 168, 171, 172, 175, 176, 184, 188, 189, 192, 198, 204, 207, 212, 216, 220 (列表;图表;参考;;历史;文本;内部格式)
抵消
1,1
链接
哈里·史密斯,n=1..1000时的n,a(n)表
例子
n=147=3*7*7,σ(147)=2*2*3*19=228。
数学
选择[Range@220,Nor[SquareFreeQ@#,SquarefreQ@DivisorSigma[1,#]]&](*迈克尔·德弗利格2017年3月18日*)
选择[Range[250],NoneTrue[{#,DivisorSigma[1,#]},SquareFreeQ]&](*需要Mathematica版本10或更高版本*)(*哈维·P·戴尔,2019年9月22日*)
黄体脂酮素
(PARI)n=0;对于(m=1,10^9,如果(!moebius(m)&&!moebius(sigma(m)),写(“b065303.txt”,n++,“”,m);如果(n=1000,返回))\\哈里·史密斯2009年10月16日
(PARI)σ平方(f)=my(v=向量(#f~,i,(f[i,1]^(f[i,2]+1)-1)/(f[i,1]-1));对于(i=2,#v,对于(j=1,i-1,如果(gcd(v[i],v[j])>1,返回(0)));对于(i=1,#v,如果(!issquarefree(v[i]),返回(0));1
列表(lim)=我的(v=列表());forfactored(k=12,lim\1,if(!issquarefree(k)&!)!sigmaSquarefree(k[2]),listput(v,k[1]));车辆(v)\\查尔斯·格里特豪斯四世2018年1月8日
(Python)
从symy导入divisorsigma
从sympy.theory.factor导入核心
定义is_squarefree(n):返回核心(n)==n
打印([i代表范围(1251)中的i,如果不是平方(i)且不是平方(divisor_sigma(i,1))])#印地瑞尼Ghosh2017年3月18日
交叉参考
关键字
非n
作者
拉博斯·埃利默,2001年10月29日
状态
经核准的

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

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

上次修改时间:2024年4月24日17:51 EDT。包含371962个序列。(在oeis4上运行。)