|
|
|
|
|
|
|
|
|
#8通过乔恩·肖恩菲尔德2015年8月26日星期三23:58:52 EDT |
|
|
|
|
|
|
|
#7通过乔恩·肖恩菲尔德2015年8月26日星期三23:58:49 EDT |
|
| 数学
|
a={}；对于[n=2，n<1000，n++，b=Max[Select[Drop[Divisors[n]，-1]，GCD[Divisor Sigma[0，n]，#]==1&]]；如果[b>1&&！PrimeQ[b]，追加到[a，n]]]；一[发件人_(* _Stefan Steinerberger_，2008年12月6日]*)
|
|
| 交叉参考
|
囊性纤维变性.A152442号,A152443号.
|
|
| 状态
|
经核准的
编辑
|
|
|
|
|
|
|
#6通过查尔斯·格里特豪斯四世2014年4月9日星期三10:17:01 EDT |
|
|
|
|
|
讨论
|
| 2009年4月3日
| 10:17
| OEIS服务器: https://oeis.org/edit/global/2156
|
|
|
|
|
|
|
#5通过N.J.A.斯隆2014年2月5日星期三美国东部标准时间20:18:56 |
|
|
|
|
|
讨论
|
| 2月5日星期三
| 20:18
| OEIS服务器: https://oeis.org/edit/global/2118
|
|
|
|
|
|
|
#4通过俄罗斯考克斯2012年3月30日星期五18:49:47 EDT |
|
| 数学
|
a={}；对于[n=2，n<1000，n++，b=Max[Select[Drop[Divisors[n]，-1]，GCD[Divisor Sigma[0，n]，#]==1&]]；如果[b>1&&！PrimeQ[b]，追加到[a，n]]]；a[来自 _斯特凡·斯坦纳伯格(斯特凡.斯坦伯格(自动变速箱)gmail公司.通用域名格式),_，2008年12月6日]
|
|
| 扩展
|
由扩展雷·钱德勒和 _斯特凡·斯坦纳伯格(斯特凡.斯坦伯格(自动变速箱)gmail公司.通用域名格式),_，2008年12月5日
|
|
|
|
|
讨论
|
| 3月30日星期五
| 18:49
| OEIS服务器: https://oeis.org/edit/global/238
|
|
|
|
|
|
|
#3通过俄罗斯考克斯2012年3月30日星期五17:29:58 EDT |
|
| 扩展
|
由扩展 _雷·钱德勒(雷杰钱德勒(自动变速箱)sbc全球.网)_和Stefan Steinerberger（Stefan.steinerberge（AT）gmail.com），2008年12月5日
|
|
|
|
|
讨论
|
| 3月30日星期五
| 17:29
| OEIS服务器: https://oeis.org/edit/global/154
|
|
|
|
|
|
|
#2通过N.J.A.斯隆美国东部时间2010年10月2日星期六03:00:00 |
|
| 链接
|
Leroy Quet，<a href=“http://www.prism-of-spirals.net/“>主页（代替电子邮件地址列出）
|
|
| 关键词
|
非n,新的
非n
|
|
|
|
|
|
|
#1个通过N.J.A.斯隆2009年1月9日星期五东部标准时间03:00:00 |
|
| 名称
|
如果与d（n）互素的n的最大真除数是一个复合数，则包含n，其中d（n）是n的除数总数。
|
|
| 数据
|
16、27、30、36、42、50、54、64、66、70、75、78、81、98、100、102、105、110、114、120、125、130、135、138、140、144、147、150、154、162、165、168、170、174、175、182、186、189、190、195、196、200、210、216、220、222、225、230、231、238、242、245、246、250、255
|
|
| 抵消
|
1,1
|
|
| 评论
|
A152443号（a（n））对于所有n都是复合的。
|
|
| 链接
|
Leroy Quet，<a href=“http://www.prism-of-spirals.net/“>主页（代替电子邮件地址列出）
|
|
| 例子
|
27有4个除数。它们是1,3,9,27。因此，27的适当除数为1,3,9。与d（27）=4互素的最大值是9。所以a（27）=9。（注意，在这种情况下，27与4互素的最大除数是27，而不是9。）
|
|
| 数学
|
a={}；对于[n=2，n<1000，n++，b=Max[Select[Drop[Divisors[n]，-1]，GCD[Divisor Sigma[0，n]，#]==1&]]；如果[b>1&&！PrimeQ[b]，追加到[a，n]]]；a【摘自Stefan Steinerberger（Stefan.steinerberge（AT）gmail.com），2008年12月6日】
|
|
| 交叉参考
|
A152442号,A152443号
|
|
| 关键词
|
非n
|
|
| 作者
|
Leroy Quet 2008年12月4日
|
|
| 扩展
|
由Ray Chandler（rayjchandler（AT）sbcglobal.net）和Stefan Steinerberger（Stefan.steinerberge（AT）gmail.com）扩展，2008年12月5日
|
|
| 状态
|
经核准的
|
|
|
|
|
|
