登录
OEIS由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, 5398785, 8709805, 8922270, 8922480 (列表;图表;参考;;历史;文本;内部格式)
抵消
1,2
链接
例子
第四个非素数是8,8除以4^2=16,所以8在序列中。
MAPLE公司
从1到n do
如果n^2 modA018252号(n) =0那么
打印(n);
结束条件:;
结束do:#R.J.马塔尔2013年6月4日
数学
seq={};np=n=0;p=2;当[n<10^5时,如果[++np==p,p=NextPrime@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}],Divisible[First[#]^2,Last[#]]&]][1](*哈维·P·戴尔2014年9月10日*)
交叉参考
囊性纤维变性。A018252号.
关键词
非n,较少的
作者
扩展
a(5)-a(38)来自乔瓦尼·雷斯塔2013年5月27日
状态
经核准的

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

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

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