All about flooble | fun stuff | Get a free chatterbox | Free JavaScript | Avatars    
perplexus dot info

Home > Numbers
Prime square with distinct digits (Posted on 2009-05-30) Difficulty: 2 of 5
Determine the maximum value of a positive prime N, such that none of the digits in the base ten representation of N2 occur more than once.

See The Solution Submitted by K Sengupta    
No Rating

Comments: ( Back to comment list | You must be logged in to post comments.)
mathematica solution | Comment 1 of 2

I found the maximum N of 21397 which gives N^2 of 457831609

using the following code

mx=N[Sqrt[9876543210]];

i=1;

p=Prime[i];

While[pTmx,

dgs=IntegerDigits[p^2];

If[Length[dgs]Length[Union[dgs]],

Print[p," ",p^2];

];

i++;

p=Prime[i];

];


  Posted by Daniel on 2009-05-30 13:01:42
Please log in:
Login:
Password:
Remember me:
Sign up! | Forgot password


Search:
Search body:
Forums (0)
Newest Problems
Random Problem
FAQ | About This Site
Site Statistics
New Comments (2)
Unsolved Problems
Top Rated Problems
This month's top
Most Commented On

Chatterbox:
Copyright © 2002 - 2021 by Animus Pactum Consulting. All rights reserved. Privacy Information