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

 

标志
提示
(问候来自百科全书行上的整数序列!)
A226011 数k使得非质(k)除以k^2。 0
1、2、4、18、72、130、280、495、840、900、930、1216、1880、2646、3182、3762、17437、21600、29400、30654、35207、45024、58230、266133、1051980、1204164、1204320、2193408、2494520、2549745、3272178、3671570、3843378、5166708、5398575、8709805、8922270、8922480 (列表;图表;参考文献;;历史;文本;内部格式)
抵消

1,2

链接

n=1的n,a(n)表。。38

例子

第四个非质是8,8除以4^2=16,所以8在序列中。

枫木

n从1 do开始

如果n^2 modA018252号(n) =0那么

打印(n);

结束if;

结束do:#R、 J.马萨2013年6月4日

数学

序列={};np=n=0;p=2;而[n<10^5,如果[++np==p,p=下一个时间@p,n++;如果[Mod[n^2,np]==0,则打印@{n,np,n^2/np};附录[seq,n]]]];顺序(*乔瓦尼·雷斯塔2013年5月27日*)

模[{nn=10^7,np,len},np=补码[Range[nn],素数[Range[PrimePi[nn]]];len=长度[np];转置[Select[Thread[{Range[len],np}],可除[First[#]^2,Last[#]]&]][[1]](*哈维·P·戴尔2014年9月10日*)

交叉引用

囊性纤维变性。A018252号.

上下文顺序:A009679号 A007727 A303352型*A174085型 A325850型 A052689号

相邻序列:A226008年 A226009年 A226010*A226012号 A226013号 A226014

关键字

,较少的,改变

作者

杰拉西莫夫·谢尔盖2013年5月27日

扩展

a(5)-a(38)来自乔瓦尼·雷斯塔2013年5月27日

状态

经核准的

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

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

上次修改时间:2022年1月23日13:57。包含350511个序列。(运行在oeis4上。)