Re: challenge problem
- To: mathgroup at smc.vnet.net
- Subject: [mg61290] Re: [mg61219] challenge problem
- From: Zhengji Li <zhengji.li at gmail.com>
- Date: Fri, 14 Oct 2005 05:56:09 -0400 (EDT)
- References: <200510130539.BAA04503@smc.vnet.net>
- Sender: owner-wri-mathgroup at wolfram.com
This works, but it may take a long time.
(Note: Quotient[10^11, 7] = 14285714285)
result = 0;
i = 1;
While[i <= 14285714285,
temp = IntegerDigits[7i];
If[temp === Reverse[temp],
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