|
|
A291094型 |
| 具有非平凡反常对消的分数的分母,如果可能有多个分子,则用重数列出。 |
|
11
|
|
|
64, 65, 95, 98, 110, 120, 121, 130, 132, 136, 140, 143, 150, 154, 160, 160, 165, 170, 176, 180, 187, 190, 190, 192, 194, 195, 196, 196, 198, 202, 204, 206, 208, 210, 220, 220, 230, 231, 231, 238, 238, 240, 242, 242, 250
(列表;图表;参考;听;历史;文本;内部格式)
|
|
|
抵消
|
1,1
|
|
评论
|
如果在不改变分数值的情况下,可以从N和D中取消一个数字,则称未缩减分数N/D具有反常抵消特性。第一个也是最著名的例子是取消6后的16/64=1/4。
非平凡意味着x0/y0形式的分数被排除在外(否则会有大量琐碎条目,如120/340)。
分数假定在0到1的范围内,当然不会减少。
分母d按11、12、13……的顺序考虑。。。,然后按照n=10,11,12,…,的顺序考虑分子。。。,d-1。
分数只列出一次,即使可以通过多种方式取消。
对于k=1..12,正好出现k次的最小分母D及其相应分子如下:
.
k D分子
== ==== ================================================
1 64 16
2 160 16 64
3 294 49 98 196
4 392 49 98 196 294
5 490 49 98 196 294 392
6 660 66 165 264 363 462 561
7 770 77 176 275 374 473 572 671
8 880 88 187 286 385 484 583 682 781
9 990 99 198 297 396 495 594 693 792 891
10 1980 99 198 297 396 495 594 693 792 891 990
11 2970 99 198 297 396 495 594 693 792 891 990 1980
12 3960 99 198 297 396 495 594 693 792 891 990 1980 2970
在k=1.41:64、160、294、392、490、660、770、880、990、1980、2970、3960、4950、5830、6710、7920、8910、9900、11940、12935、13065、14925、15920、16080、16915、18905、19095、23952、24950、25948、26052、24309、28942、29940、29058、31396、32934、34068、33932、35928、,36926(请注意,该序列是非单调的;例如,其第29项和第32项分别为24950项和24309项)。
(结束)
|
|
参考文献
|
R.P.Boas,“异常抵消”,《数学梅花》第6章(编辑R.Honsberger)。华盛顿特区:数学。美国协会。,第113-129页,1979年。
A.Moessner,《脚本数学》。19;20
C.S.Ogilvy和J.T.Anderson,数论中的游历。纽约:多佛,1988年,第86-87页。
|
|
链接
|
B.L.Schwartz,提案434《数学杂志》第34卷第3期(1961年),问题与问题,第173页。
|
|
例子
|
前两项对应于分数16/64=1/4(取消6!)和26/65=2/5(再次取消6。
前20个分数是(取消前)16/64、26/65、19/95、49/98、11/110、12/120、22/121、13/130、33/132、34/136、14/140、44/143、15/150、55/154、16/160、64/160、66/165、17/170、77/176、18/180,它们等于(取消后)1/4、2/5、1/5、1/2、1/10、1/10 14、1/10、2/5、2/5,1/10、7/16、1/10。
|
|
数学
|
扁平@表[ConstantArray[m,Count[Range[11,m-1],_?(函数[k,函数[{r,n,d},AnyTrue[Flatten@Map[Apply[Eouter[Divide,#1,#2]&,#]&,Transpose@MapAt[#/.0->Nothing&,Map[函数[x,Map[Map[FromDigits@Delete[x,#]&,位置[x,#]&,交叉点@{n,d}]],{n,d}],-1]],#==Divide@@{k,m}&]@@{k/m,#,First@#,Last@#}&@Map[IntegerDigits,{k,m}]-布尔〔Mod〔{k,m}〕,10]=={0,0}]])]],{m,250}](*迈克尔·德弗利格2017年9月13日*)
|
|
交叉参考
|
|
|
关键词
|
非n,压裂,基础
|
|
作者
|
|
|
状态
|
经核准的
|
|
|
|