login
A136899
Numbers k such that k and k^2 use only the digits 0, 2, 4, 5 and 7.
1
0, 2, 5, 20, 45, 50, 52, 200, 205, 450, 455, 500, 502, 505, 520, 745, 755, 2000, 2005, 2050, 2245, 4500, 4550, 4552, 5000, 5002, 5005, 5020, 5045, 5050, 5052, 5200, 7450, 7455, 7550, 20000, 20005, 20050, 20500, 20505, 22450, 22455, 45000, 45005, 45500, 45505, 45520, 50000, 50002, 50005, 50020, 50045, 50050, 50052, 50200, 50205, 50450, 50455, 50500
OFFSET
1,2
COMMENTS
Generated with DrScheme.
LINKS
J. Wellons, Tables of Shared Digits [archived]
EXAMPLE
7074745752^2 = 50052027455442045504.
MATHEMATICA
Module[{c={0, 2, 4, 5, 7}, t}, t=FromDigits/@Tuples[c, 5]; Select[t, SubsetQ[c, IntegerDigits[ #^2]]&]] (* Requires Mathematica version 10 or later *) (* Harvey P. Dale, Dec 31 2016 *)
CROSSREFS
Sequence in context: A056726 A176042 A185593 * A136882 A136901 A136897
KEYWORD
base,nonn
AUTHOR
Jonathan Wellons (wellons(AT)gmail.com), Jan 22 2008
STATUS
approved