Re: challenge problem
- To: mathgroup at smc.vnet.net
- Subject: [mg61292] Re: [mg61219] challenge problem
- From: Zhengji Li <zhengji.li at gmail.com>
- Date: Fri, 14 Oct 2005 05:56:12 -0400 (EDT)
- References: <200510130539.BAA04503@smc.vnet.net> <a6e65e8d0510131901t7a5eee74q74469892d454bf5@mail.gmail.com> <a6e65e8d0510131911i20b373f0if11a7d5bb2d7dc08@mail.gmail.com>
- Sender: owner-wri-mathgroup at wolfram.com
I am wrong once and again. result = 0; i = 1; While[i <= 14285714285, temp = IntegerDigits[7i]; If[Mod[FromDigits[Reverse[temp]], 7] === 0, result += 7i; ]; ++i; ]; -- Li Zhengji ------------------------------------------------------------- If all you have is a hammer, everything is a nail. -------------------------------------------------------------
- References:
- challenge problem
- From: Murray Eisenberg <murray@math.umass.edu>
- challenge problem