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