|
|
A136912
|
|
Numbers k such that k and k^2 use only the digits 0, 2, 5, 6 and 7.
|
|
1
|
|
|
0, 5, 25, 26, 50, 75, 76, 225, 250, 255, 260, 265, 266, 275, 500, 505, 525, 526, 725, 726, 750, 755, 760, 775, 2250, 2500, 2505, 2550, 2600, 2650, 2660, 2750, 2766, 2775, 5000, 5005, 5025, 5026, 5050, 5075, 5076, 5250, 5260, 5265, 7075, 7225, 7250, 7260, 7500, 7525, 7550, 7600, 7750, 22500, 25000, 25005, 25025, 25050, 25500, 25505, 26000, 26005, 26500
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,2
|
|
COMMENTS
|
Generated with DrScheme.
|
|
LINKS
|
|
|
EXAMPLE
|
756706725^2 = 572605067660225625.
|
|
MATHEMATICA
|
Select[FromDigits/@Tuples[{0, 2, 5, 6, 7}, 5], And@@Table[MemberQ[{0, 2, 5, 6, 7}, n], {n, IntegerDigits[#^2]}]&] (* Harvey P. Dale, Nov 19 2013 *)
With[{c={0, 2, 5, 6, 7}}, Select[FromDigits/@Tuples[c, 5], SubsetQ[c, IntegerDigits[ #^2]]&]] (* Harvey P. Dale, Mar 14 2023 *)
|
|
CROSSREFS
|
|
|
KEYWORD
|
base,nonn
|
|
AUTHOR
|
Jonathan Wellons (wellons(AT)gmail.com), Jan 22 2008
|
|
STATUS
|
approved
|
|
|
|