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

 

标志
提示
(来自的问候整数序列在线百科全书!)

阿隆索·德尔·阿特修订

(另请参见Alonso del Arte的维基页面)

(带下划线的文本是附加;删除线文本是删除

显示条目1-10|较旧的更改
A371477飞机 分配给阿隆索·德尔·阿特
(历史;已发布版本)
#2通过阿隆索·德尔·阿特2024年3月25日周一01:32:20 EDT
名称

已分配积极的 整数 对于在里面 阿隆索8-一点 德尔浮动 阿特指向

数据

1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 18, 20, 22, 24, 26, 28, 30, 32, 36, 40, 44, 48, 52, 56, 60, 64, 72, 80, 88, 96, 104, 112, 120, 128, 144, 160, 176, 192, 208, 224, 240

抵消

1,2

评论

指数偏差从-6到7

关键词

已分配

非n,完成,满的

作者

阿隆索·德尔·阿特2024年3月25日

状态

经核准的

编辑

#1通过阿隆索·德尔·阿特2024年3月25日周一01:32:20 EDT
名称

分配给阿隆索·德尔·阿特

关键词

已分配

状态

经核准的

A219695型 对于奇数2n-1,最大除数不超过平方根,最小除数不小于平方根之差的一半。
(历史;已发布版本)
#33通过阿隆索·德尔·阿特2024年3月25日周一01:22:18 EDT
状态

编辑

提出

讨论
3月25日周一 03时14分
米歇尔·马库斯:我们需要2个Mma代码吗?
#32通过阿隆索·德尔·阿特2024年3月25日星期一01:21:47 EDT
数学

表[(除数[n][[][[(长度[除数[n]]/2+1]]-布尔[不是[整数Q[Sqrt[n]]]] *]]])/2+1]] -除数[n][[][[(长度[除数[n个]] +布尔[整数Q[平方米【n】]]/]]])/2] ])/2,{n,1,99199,2}](*阿隆索·德尔·阿特,2012年11月25日,2024年3月21日在乔尔戈斯·卡洛杰罗普洛斯*)

#31通过阿隆索·德尔·阿特2024年3月25日周一01:19:33 EDT
数学

表[(除数[n][[Length[Divisors[n]]/2+1]]-Boole[Not[IntegerQ[Sqrt[n]]]*除数[n][[Leng[Divisor s[n]]/2])/2,{n,1,99,2}](*Alonso del Arte,2012年11月25日,2024年3月21日更正*) 具有 帮助 _乔治 卡洛格罗普洛斯_ *)

A219695型[n_]:=(d=除数[2n-1];l=楼层[长度@d/2 + 1]; (d[[l]]-d[[-l]])/2);阵列[A219695型, 100] (*乔尔戈斯·卡洛杰罗普洛斯2024年3月15日*)

#30通过阿隆索·德尔·阿特2024年3月21日星期四11:31:43 EDT
数学

表[(除数[n][Length[Divisions[n]]/2+1]]-Boole[Not[InterQ[Sqrt[n]]*除数[n][Length[Divisions[n]]/2]])/2,{n,1,99,2}](*Alonso del Arte,2012年11月25日,2024年3月21日更正*)

讨论
3月21日星期四 11:33
阿隆索·德尔·阿特:我只记得“布尔”和“整数Q”。我不记得我的Wolfram Cloud密码。。。
14:32
乔尔戈斯·卡洛杰罗普洛斯:您的代码无效。下面是一个有效的快速修复方法:表[(Divisors[n][[(Length[Divisors[n]]-Boole[IntegerQ[Sqrt[n]])/2+1]]-Divisors[n][[(Length[Divisor[n]]+Boole[IntigerQ[Sqrt[n]])/2])/2,{n,1199,2}]
#29通过阿隆索·德尔·阿特2024年3月16日星期六03:55:44 EDT
数学

a[n]_]:=(_] := (==除数[2n--1];];==地板[长度@d/2++1];(];(d[[l日]]-]] -d[[-l]])/2);数组[a,,100] (*乔尔戈斯·卡洛杰罗普洛斯2024年3月15日*)

状态

提出

编辑

讨论
3月21日星期四 05:42
乔尔戈斯·卡洛杰罗普洛斯:你好,阿隆索,谢谢你添加代码。如果您完成了编辑,则必须按此页面底部的按钮“这些更改已准备好供OEIS编辑审查”。
#26通过阿隆索·德尔·阿特2024年3月15日星期五13:57:24 EDT
数学

(*我被告知以下内容不正确;由于我没有访问本地计算机的Mathematica许可证的权限,因此无法验证这一点*)

表[(除数[n][[长度[Divisors[n]]/2+1]]-除数[n][[宽度[Divisor[n]]/2]])/2,{n,1,99,2}](*阿隆索·德尔·阿特2012年11月25日*)

讨论
3月15日星期五 13:58
阿隆索·德尔·阿特:沃尔夫拉姆·克劳德是我接下来要尝试的,但我相信你的话,米歇尔。
16:28
乔尔戈斯·卡洛杰罗普洛斯:这是工作代码a[n_]:=(d=除数[2n-1];l=楼层[长度@d/2+1];(d[[l]]-d[[-l]])/2);数组[a,100]
#24个通过阿隆索·德尔·阿特2024年3月13日星期三11:05:39 EDT
例子

对于n=2,考虑2n-1=3的除数是{1,3}。至少一个>= 更大的 平等的 sqrt(3)是3,是最大的一个<= 较少的 平等的 sqrt(3)为1;其中a(2)=(3-1)/2=1。

对于n=14,考虑2n-1=27的除数,它们是{1,3,9,27}。至少一个>= 更大的 平等的 sqrt(27)为9,最大<= 较少的 平等的 sqrt(27)为3;其中a(14)=(9-3)/2=3。

对于n=1、5、13、25,。。。,数字2n-1等于1,9,25,49的平方,...;, ...;因此,前面提到的两个“中值除数”与平方根重合,a(n)=0/2=0。

数学

(*我被告知以下内容不正确;由于我没有访问本地计算机的Mathematica许可证的权限,因此无法验证这一点*)

状态

经核准的

编辑

讨论
3月13日星期三 11:06
阿隆索·德尔·阿特:受到Giorgos Kalogeropoulos的一条消息的刺激:“当数字是完美平方时,代码就不起作用了。”
A162857号 形式为4p-1的素数,p是素数。
(历史;已发布版本)
#11通过阿隆索·德尔·阿特2024年1月14日周日19:06:27 EST
状态

编辑

提出

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

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

最后修改时间:美国东部时间2024年3月28日16:58。包含371254个序列。(在oeis4上运行。)