- 注册时间
- 2017-1-14
- 最后登录
- 1970-1-1
- 威望
- 星
- 金币
- 枚
- 贡献
- 分
- 经验
- 点
- 鲜花
- 朵
- 魅力
- 点
- 上传
- 次
- 下载
- 次
- 积分
- 10619
- 在线时间
- 小时
|
要找OEIS没有的数字串还是容易的。
{2, 2, 3, 4, 6, 6, 14, 10, 19, 16, 90, 24, 234, 42, 71, 68, 1598, 106, 150, 178, 447, 288, 28658, 431, 3026, 754, 1119, 1220, 514230, 1902, 2974, 3194, 19979, 5168, 142026, 7728, 13098, 13530, 136187, 20276, 62158, 34130,
433494438, 52994, 119811, 92736, 2971215074, 138673, 6169970, 241310, 6379215, 392836, 55946694, 587943, 768686, 957578, 2208943, 1664080, 2710261050, 2488391, 555008010, 4356618, 35425763, 6821756}
- Table[With[{t = Fibonacci[n]}, # + t/# &@First@Nearest[Divisors[t], Sqrt[t]]], {n, 64}]
复制代码 |
|