A282754-OEIS公司

A282754型

令人钦佩的数字，比如减去的除数是斐波那契数。

12, 20, 40, 70, 88, 104, 464, 650, 1504, 1888, 1952, 4030, 5830, 7192, 7912, 8925, 9555, 10792, 13736, 17272, 30555, 30592, 32128, 32445, 78975, 130304, 442365, 521728, 522752, 1713592, 1848964, 4526272, 8353792, 8378368, 8382464, 9928792, 11547352, 17999992

(列表;图表;参考;听;历史;文本;内部格式)

抵消

1,1

的后续A111592号.

相应的斐波那契数列由序列{b（n）}=2，1，5，2，2，1，1，8，2，8，8，3，21，8，34，8，21，80，2，3，13，1，3，2。。。。

链接

阿米拉姆·埃尔达尔，n=1..46时的n，a（n）表

特里·特罗特，令人钦佩的数字, 2009. 【Wayback Machine copy】【警告：截至2018年3月，该网站似乎已被黑客攻击。请谨慎操作。应从Waybacks Machine检索原始内容并添加到此处-N.J.A.斯隆2018年3月29日]

例子

40在序列中是因为sigma（40）-2*5=90-10=80=2*40，其中5是斐波那契数，或者1+2+4+8+10+20-5=40，其中减去的除数是5。

MAPLE公司

带有（数字理论）：

对于从1到20000的n，执行以下操作：

x： =除数（n）：n0：=nops（x）：

对于从1到n0的i，请执行以下操作：

u： =sqrt（5*x[i]^2-4）：v：=sqrt（5*x[i]^2+4）：

如果（floor（u）=u或floor（v）=v）和sigma（n）-2*x[i]=2*n

然后

打印f（`%d%d\n`，n，x[i]）：

其他的

图1：

日期：

数学

使用[{nn=10^6}，函数[s，展平@Position[#，1]&@Table[Total@Boole@Map[MemberQ[s，#]&，选择[Most@Divisors@n，函数[d，DivisorSigma[1，n]-2 d==2n]]]，{n，nn}]]@Fibonacci@Range[2+Floor@Log[GoldenRatio，nn]](*迈克尔·德弗利格2017年2月24日*）（*或*）

fibQ[n_]：=整数Q@Sqrt[5 n^2+4]| |整数Q@Sqrt[5n^2-4]；ok[n_]：=块[{d=DivisorSigma[1，n]-2 n}，d>0&&EvenQ@天&&Mod[n，d/2]==0&&fibQ[d/2]]；选择[范围[10^6]，确定]（*更快，乔瓦尼·雷斯塔2017年3月10日*）

黄体脂酮素

（PARI）可接受（n）=如果（发行方（n）||发行方（n/2），0，my（d=σ（n）/2-n）；（d>0&&d！=n&&n%d==0）*d）；

isfib（n）=我的（k=n^2）；k+=（k+1）<<2；发行方（k）||（n>0&&发行方（k-8））

isok（n）=（d=可消除（n））&&isfib（d）\\米歇尔·马库斯2017年3月10日

交叉参考

囊性纤维变性。A000045号,A010056号,A111592号.

上下文中的序列：A260905型 A211415型 A209973型*A063690号 A229355型 A259174型

相邻序列：A282751型 A282752型 A282753型*A282755型 A282756型 A282757型

关键词

非n

作者

米歇尔·拉格诺2017年2月21日

扩展

更多术语来自米歇尔·马库斯2017年3月10日

状态

经核准的