王守恩 发表于 2024-8-18 12:23
[欣赏]A+(A+1)的数字和=4。
A=6, 15, 51, 60, 105, 150, 501, 510, 555, 600, 1005, 1050, 1500, 5001, ...
谢谢 northwolves!
{6, 15, 51, 60, 105, 150, 501, 510, 555, 600, 1005, 1050, 1500, 5001, 5010, 5055, 5100, 5505, 5550, 6000, 10005, 10050, 10500, 15000, 50001, 50010, 50055, 50100, 50505, 50550, 51000, 55005, 55050, 55500, 60000,
100005, 100050, 100500, 105000, 150000, 500001, 500010, 500055, 500100, 500505, 500550, 501000, 505005, 505050, 505500, 510000, 550005, 550050, 550500, 555000, 600000, 1000005, 1000050, 1000500, 1005000,
1050000, 1500000, 5000001, 5000010, 5000055, 5000100, 5000505, 5000550, 5001000, 5005005, 5005050, 5005500, 5010000, 5050005, 5050050, 5050500, 5055000, 5100000, 5500005, 5500050, 5500500, 5505000,
5550000, 6000000, 10000005, 10000050, 10000500, 10005000, 10050000, 10500000, 15000000, 50000001, 50000010, 50000055, 50000100, 50000505, 50000550, 50001000, 50005005, 50005050, 50005500, 50010000,
50050005, 50050050, 50050500, 50055000, 50100000, 50500005, 50500050, 50500500, 50505000, 50550000, 51000000, 55000005, 55000050, 55000500, 55005000, 55050000, 55500000, 60000000, 100000005, 100000050}
- Sort[r = Range@10; Join[6*10^(r - 1), 5*Total /@ Subsets[10^(r - 1), {3}], Flatten@Table[{10^s + 5*10^t, 5*10^s + 10^t}, {s, r}, {t, 0, s - 1}]]]
复制代码
每个数 - 1, 还是一串数。OEIS就肯定没有了。
- Sort[r = Range@10; Join[6*10^(r - 1), 5*Total /@ Subsets[10^(r - 1), {3}], Flatten@Table[{10^s + 5*10^t, 5*10^s + 10^t}, {s, r}, {t, 0, s - 1}]]] - 1
复制代码
{5, 14, 50, 59, 104, 149, 500, 509, 554, 599, 1004, 1049, 1499, 5000, 5009, 5054, 5099, 5504, 5549, 5999, 10004, 10049, 10499, 14999, 50000, 50009, 50054, 50099, 50504, 50549, 50999, 55004, 55049, 55499, 59999,
100004, 100049, 100499, 104999, 149999, 500000, 500009, 500054, 500099, 500504, 500549, 500999, 505004, 505049, 505499, 509999, 550004, 550049, 550499, 554999, 599999, 1000004, 1000049, 1000499, 1004999,
1049999, 1499999, 5000000, 5000009, 5000054, 5000099, 5000504, 5000549, 5000999, 5005004, 5005049, 5005499, 5009999, 5050004, 5050049, 5050499, 5054999, 5099999, 5500004, 5500049,5500499, 5504999,
5549999, 5999999, 10000004, 10000049, 10000499, 10004999, 10049999, 10499999, 14999999, 50000000, 50000009, 50000054, 50000099, 50000504, 50000549, 50000999, 50005004, 50005049, 50005499, 50009999,
50050004, 50050049, 50050499, 50054999, 50099999, 50500004, 50500049, 50500499, 50504999, 50549999, 50999999, 55000004, 55000049, 55000499, 55004999, 55049999, 55499999, ......}
{5, 14, 50, 59, 104, 149, 500, 509, 554, 599, 1004, 1049, 1499, 5000, 5009, 5054, 5099, 5504, 5549, 5999, 10004, 10049, 10499, 14999, 50000, 50009, 50054, 50099, 50504, 50549, 50999, 55004, 55049, 55499, 59999,
100004, 100049, 100499, 104999, 149999, 500000, 500009, 500054, 500099, 500504, 500549, 500999, 505004, 505049, 505499, 509999, 550004, 550049, 550499, 554999, 599999, 1000004, 1000049, 1000499, 1004999,
1049999, 1499999, 5000000, 5000009, 5000054, 5000099, 5000504, 5000549, 5000999, 5005004, 5005049, 5005499, 5009999, 5050004, 5050049, 5050499, 5054999, 5099999, 5500004, 5500049, 5500499, 5504999,
5549999, 5999999, 10000004, 10000049, 10000499, 10004999, 10049999, 10499999, 14999999, 50000000, 50000009, 50000054, 50000099, 50000504, 50000549, 50000999, 50005004, 50005049, 50005499, 50009999,
50050004, 50050049, 50050499, 50054999, 50099999, 50500004, 50500049, 50500499, 50504999, 50549999, 50999999, 55000004, 55000049, 55000499, 55004999, 55049999, 55499999, ......}
- Select[Range[10^8], Total[IntegerDigits[2 # + 3]] == 4 &]
复制代码 |