 |
ทำด้วย Mathematica
NestList[Total[IntegerDigits[#]^3] &, ตัวเลขที่หารด้วย 3 ลงตัว, จำนวนรอบจากข้อ (2-4) ]
เช่น เริ่มที่เลข 3 จำนวน 10 รอบ NestList[Total[IntegerDigits[#]^3] &, 3, 10] {3, 27, 351, 153, 153, 153, 153, 153, 153, 153, 153}
หรือ เริ่มที่เลข 123345 (ตามตัวอย่าง) 10 รอบ NestList[Total[IntegerDigits[#]^3] &, 123345, 10] {123345, 252, 141, 66, 432, 99, 1458, 702, 351, 153, 153}
มันมาหยุดอยู่ที่ 153 ตามคำตอบด้านบนครับ
จากคุณ |
:
Santi
|
เขียนเมื่อ |
:
11 ก.ย. 55 17:35:23
A:203.147.41.226 X: TicketID:044871
|
|
|
|
 |