Numbers and their reversals
- To: mathgroup at smc.vnet.net
- Subject: [mg53687] Numbers and their reversals
- From: "F. omari" <towtoo2002 at yahoo.com>
- Date: Sun, 23 Jan 2005 02:02:17 -0500 (EST)
- Sender: owner-wri-mathgroup at wolfram.com
i want to investigate the following two equations: a * const = z a_Reversed * const = z_Reversed where a, z, and their reversed form and const are all positive integers ie such that: 2684 * 17 = 45628 4862 * 17 = 82654 2986 * 91 = 271726 6892 * 91 = 627172 it happened that many multipliers of 91 have such a property. while the multipliers of 17 have only 5 cases in the interval of 1 to 3000 the following code will investigate the multipliers of 17, to investigate another number just replace 17. and you may increase the interval of investigation. i am sure that my code is an old fashion one, please any other ideas about a more functional code. a = Table[i, {i, 1, 3000}]; zR = ""; aR = 0; z = ""; Do[aR = ToExpression[StringReverse[ToString[a[[i]]]]]; z = ToString[a[[i]]*17]; zR = StringReverse[ToString[aR*17]]; If[zR == z, Print[a[[i]]]], {i, 1, 3000}] 242 484 2442 2662 2684 regards
- Follow-Ups:
- Re: Numbers and their reversals
- From: DrBob <drbob@bigfoot.com>
- Re: Numbers and their reversals
- From: DrBob <drbob@bigfoot.com>
- Re: Numbers and their reversals