|

楼主 |
发表于 2024-9-5 11:11
|
显示全部楼层
漂亮的数字串! OEIS——没有这些漂亮的数字串。
数字串(5)。1, 6, 11, 66, 111, 666, 1111, 6666, 11111, 66666, 111111, 666666, 1111111, 6666666, 11111111, 66666666, 111111111, 666666666, 1111111111, 6666666666, 11111111111,
- Table[Floor[(1 (1 - Cos[n Pi])*10^((n + 1)/2) + 6 (1 + Cos[n Pi]) 10^(n/2))/18], {n, 20}]
复制代码
数字串(6)。2, 7, 22, 77, 222, 777, 2222, 7777, 22222, 77777, 222222, 777777, 2222222, 7777777, 22222222, 77777777, 222222222, 777777777, 2222222222, 7777777777, 22222222222,
- Table[Floor[(2 (1 - Cos[n Pi])*10^((n + 1)/2) + 7 (1 + Cos[n Pi]) 10^(n/2))/18], {n, 20}]
复制代码
数字串(7)。3, 8, 33, 88, 333, 888, 3333, 8888, 33333, 88888, 333333, 888888, 3333333, 8888888, 33333333, 88888888, 333333333, 888888888, 3333333333, 8888888888, 33333333333,
- Table[Floor[(3 (1 - Cos[n Pi])*10^((n + 1)/2) + 8 (1 + Cos[n Pi]) 10^(n/2))/18], {n, 20}]
复制代码
数字串(8)。4, 9, 44, 99, 444, 999, 4444, 9999, 44444, 99999, 444444, 999999, 4444444, 9999999, 44444444, 99999999, 444444444, 999999999, 4444444444, 9999999999, 44444444444,
- Table[Floor[(4 (1 - Cos[n Pi])*10^((n + 1)/2) + 9 (1 + Cos[n Pi]) 10^(n/2))/18], {n, 20}]
复制代码
5, 8, 55, 88, 555, 888, 5555, 8888, 55555, 88888, 555555, 888888, 5555555, 8888888, 55555555, 88888888, 555555555, 888888888, 5555555555, 8888888888, 55555555555, 88888888888, 555555555555, 888888888888,
- Table[Floor[(5 (1 - Cos[n Pi])*10^((n + 1)/2) + 8 (1 + Cos[n Pi]) 10^(n/2))/18], {n, 24}]
复制代码
13, 35, 133, 355, 1333, 3555, 13333, 35555, 133333, 355555, 1333333, 3555555, 13333333, 35555555, 133333333, 355555555, 1333333333, 3555555555, 13333333333, 35555555555, 133333333333, 355555555555, 1333333333333,
- Table[Floor[(12(1 -Cos[n Pi])*10^((n + 1)/2) +32(1 + Cos[n Pi]) 10^(n/2))/18], {n, 23}]
复制代码 |
|