数学中国

 找回密码
 注册
搜索
热搜: 活动 交友 discuz
123
返回列表 发新帖
楼主: 王守恩

兔年快乐

[复制链接]
 楼主| 发表于 2023-6-12 12:57 | 显示全部楼层
Treenewbee 发表于 2023-6-12 11:42
{{1,5,9,13,17,21,25,29,33,37,41},{1,0,5,0,9,0,13,0,17,0,21,0,25,0,29,0,33,0,37,0,41},{1,0,0,5, ...

谢谢 Treenewbee!!!  我只会这简单的(数字还动不了)。
  1. Table[k*Boole[IntegerQ[k/n]]/n, {n, 1, 5}, {k, n, 40}]
复制代码

{1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, ...  
{1, 0, 2, 0, 3, 0, 4, 0, 5, 0, 6, 0, 7, 0, 8, 0, 9, 0, 10, 0, 11, 0, 12, 0, 13, 0, 14, 0, 15, 0, 16, 0, 17, 0, ...
{1, 0, 0, 2, 0, 0, 3, 0, 0, 4, 0, 0, 5, 0, 0, 6, 0, 0, 7, 0, 0, 8, 0, 0, 9, 0, 0, 10, 0, 0, 11, 0, 0, 12, 0, 0, 13, 0},
{1, 0, 0, 0, 2, 0, 0, 0, 3, 0, 0, 0, 4, 0, 0, 0, 5, 0, 0, 0, 6, 0, 0, 0, 7, 0, 0, 0, 8, 0, 0, 0, 9, 0, 0, 0, 10},
{1, 0, 0, 0, 0, 2, 0, 0, 0, 0, 3, 0, 0, 0, 0, 4, 0, 0, 0, 0, 5, 0, 0, 0, 0, 6, 0, 0, 0, 0, 7, 0, 0, 0, 0, 8}
回复 支持 反对

使用道具 举报

发表于 2023-6-12 13:43 | 显示全部楼层
找规律数这种事,王守恩网友最擅长啦。有数学程式软件,会容易一点哈。
回复 支持 反对

使用道具 举报

 楼主| 发表于 2023-6-18 07:36 | 显示全部楼层
  1. Solve[{x^2 + x*y - y^2 == 1, 2000 > x}, {x, y}, PositiveIntegers]
复制代码

{{x -> 1, y -> 1}, {x -> 2, y -> 3}, {x -> 5, y -> 8}, {x -> 13, y -> 21}, {x -> 34, y -> 55},
{x -> 89, y -> 144}, {x -> 233, y -> 377}, {x -> 610, y -> 987}, {x -> 1597, y -> 2584}}

评分

参与人数 2威望 +30 收起 理由
cz1 + 10 赞一个!
Treenewbee + 20 赞一个!

查看全部评分

回复 支持 反对

使用道具 举报

 楼主| 发表于 2023-7-4 07:23 | 显示全部楼层
Treenewbee 发表于 2023-6-11 12:59
{{1,1,2,3,5,8,13,21,34,55,89,144,233,377,610,987,1597,2584,4181,6765,10946},{1,0,1,0,2,0,3,0,5 ...

简单的数字串,OEIS好像没有。

1,6,12,17,23,28,34,39,45,50,56,61,67,72,78,83,89,94,100,......
回复 支持 反对

使用道具 举报

 楼主| 发表于 2024-1-12 12:59 | 显示全部楼层
Treenewbee 发表于 2023-6-11 20:59
{{1,1,2,3,5,8,13,21,34,55,89,144,233,377,610,987,1597,2584,4181,6765,10946},{1,0,1,0,2,0,3,0,5 ...

递推数列:  a(1)=a(2)=1,  a(n)=a(n-1)+a(n-2),  求a(13^21)除以1123581321的余数。
回复 支持 反对

使用道具 举报

 楼主| 发表于 2024-1-15 11:29 | 显示全部楼层
本帖最后由 王守恩 于 2024-1-15 12:04 编辑
Treenewbee 发表于 2023-6-11 20:59
{{1,1,2,3,5,8,13,21,34,55,89,144,233,377,610,987,1597,2584,4181,6765,10946},{1,0,1,0,2,0,3,0,5 ...

递推数列:  a(1)=a(2)=1,  a(n)=a(n-1)+a(n-2),  求a(13^21)除以1123581321的余数。
  1. s = IntegerDigits[13^21, 2]; m = {{0, 1}, {1, 0}}; Do[m = Mod[If[s[[i]] == 0,
  2. m.m, m.m.{{0, 1}, {1, 1}}], 1123581321], {i, Length[s]}]; m[[2, 1]]
复制代码

{1022900075},   a(13^21)除以1123581321的余数=1022900075。

答案没问题,可惜这段代码我看不懂。譬如:

递推数列:  a(0)=2,a(1)=1,  a(n)=a(n-1)+a(n-2),  求a(10^14)除以1234567891011的余数。

可以有吗?谢谢各位大侠!谢谢!

评分

参与人数 1威望 +15 收起 理由
cz1 + 15

查看全部评分

回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则

Archiver|手机版|小黑屋|数学中国 ( 京ICP备05040119号 )

GMT+8, 2024-3-28 18:23 , Processed in 0.063477 second(s), 14 queries .

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

快速回复 返回顶部 返回列表