找回密码
 欢迎注册
楼主: sls

[求助] 有多少个这样的4位数

[复制链接]
发表于 2024-11-3 18:41:57 | 显示全部楼层
王老师算一下100位的数字,各位数字之和模4余0,1,2,3的分别有多少个?200位的呢?1000位的呢?
各位数字之和模4余0,1,2,3的分别有多少个?200位的呢?1000位的呢?
我连9位也算不了。
  1. Table[Length@Select[IntegerDigits@Range[10^(a - 1), 10^a - 1], Mod[Total@#, 4] == b &], {b, 0, 3}, {a, 8}]
复制代码

{{2, 22, 224, 2249, 22500, 225002, 2250004, 22500004}, {3, 23, 225, 2249, 22498, 224998, 2250000, 22500004}, {2, 23, 226, 2251, 22500, 224998, 2249996, 22499996}, {2, 22, 225, 2251, 22502, 225002, 2250000, 22499996}}

1位数。2+3+2+2=9。模4余0+模4余1+模4余2+模4余3=9。
2位数。22+23+23+22=90。模4余0+模4余1+模4余2+模4余3=90。
3位数。224+225+226+225=900。
4位数。2249+2249+2251+2251=9000。
5位数。22500+22498+22500+22502=90000。
6位数。225002+224998+224998+225002=900000。
7位数。2250004+2250000+2249996+2250000=9000000。
8位数。22500004+22500004+22499996+22499996=90000000。
9位数。?+?+?+?=900000000。
10位数。?+?+?+?=9000000000。
11位数。?+?+?+?=90000000000。
12位数。?+?+?+?=900000000000。
13位数。?+?+?+?=9000000000000。
......
各路大侠!能再来几个,规律可能就来了。
毋因群疑而阻独见  毋任己意而废人言
毋私小惠而伤大体  毋借公论以快私情
发表于 2024-11-4 11:13:40 | 显示全部楼层
提升10楼。

1, 含有数字4。这样的n位数是这样一串数。
{1, 18, 252, 3168, 37512, 427608, 4748472, 51736248, 555626232, 5900636088, 62105724792, 648951523128, 6740563708152, 69665073373368, 716985660360312, 7352870943242808, 75175838489185272, 766582546402667448}
  1. Table[9*10^n - 8*9^n, {n, 18}]
复制代码

2, 能被4整除。这样的n位数是这样一串数。
{2, 22, 225, 2250, 22500, 225000, 2250000, 22500000, 225000000, 2250000000, 22500000000, 225000000000, 2250000000000, 22500000000000, 225000000000000, 2250000000000000, 22500000000000000, 225000000000000000}
  1. Table[ (9*10^n)/4, {n, 17}]
复制代码

3, 各位数字之和能被4整除。这样的n位数是这样一串数。
{2, 22, 224, 2249, 22500, 225002, 2250004, 22500004, 225000000, 2249999992, 22499999984, 224999999984, 2250000000000, 22500000000032, 225000000000064, 2250000000000064, 22500000000000000, 224999999999999872}
  1. Table[ (9*10^n + 2 Im[(1 - I)^n])/4, {n, 17}]
复制代码
毋因群疑而阻独见  毋任己意而废人言
毋私小惠而伤大体  毋借公论以快私情
发表于 2024-11-4 20:40:20 | 显示全部楼层
n位数各位数字之和模4余0,1,2,3的分别有多少个?

  1. x = IntegerDigits[5*{47, 50, 38, 35}, 4]; y = {2, 3, 2, 2}; q1 =
  2. NestList[Dot[x, #] &, y, 9]
  3. q2 = Nest[Dot[x, #] &, y, 99]
复制代码


{{2,3,2,2},{22,23,23,22},{224,225,226,225},{2249,2249,2251,2251},{22500,22498,22500,22502},{225002,224998,224998,225002},{2250004,2250000,2249996,2250000},{22500004,22500004,22499996,22499996},{225000000,225000008,225000000,224999992},{2249999992,2250000008,2250000008,2249999992}}

{2249999999999999999999999999999999999999999999999999999999999999999999999999999999999718525023289344, 2249999999999999999999999999999999999999999999999999999999999999999999999999999999999718525023289344,
2250000000000000000000000000000000000000000000000000000000000000000000000000000000000281474976710656,
2250000000000000000000000000000000000000000000000000000000000000000000000000000000000281474976710656}

点评

n位数各位数字之和模7余0,1,2,3,4,5,6的来几个?谢谢!  发表于 2024-11-5 11:01
毋因群疑而阻独见  毋任己意而废人言
毋私小惠而伤大体  毋借公论以快私情
发表于 2024-11-7 17:11:49 | 显示全部楼层
  1. f[n_] :=Nest[Dot[NestList[RotateRight, {2, 1, 1, 1, 1, 2, 2}, 6], #] &, {1, 2, 2, 1, 1, 1, 1}, n - 1]; f[20]
复制代码


{12857142857145079250,12857142857143405958,12857142857141319397,12857142857140390790,12857142857141319397,12857142857143405958,12857142857145079250}
毋因群疑而阻独见  毋任己意而废人言
毋私小惠而伤大体  毋借公论以快私情
发表于 2024-11-7 17:16:44 | 显示全部楼层
13楼代码也可写成函数形式直接调用:

  1. In[35]:=f4[n_] := Nest[Dot[NestList[RotateRight, {3, 2, 2, 3}, 3], #] &, {2, 3, 2, 2},  n - 1]; f4[10]

  2. Out[35]= {2249999992, 2250000008, 2250000008, 2249999992}
复制代码
毋因群疑而阻独见  毋任己意而废人言
毋私小惠而伤大体  毋借公论以快私情
您需要登录后才可以回帖 登录 | 欢迎注册

本版积分规则

小黑屋|手机版|数学研发网 ( 苏ICP备07505100号 )

GMT+8, 2024-11-21 17:55 , Processed in 0.024063 second(s), 18 queries .

Powered by Discuz! X3.5

© 2001-2024 Discuz! Team.

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