A136899 Numbers k such that k and k^2 use only the digits 0, 2, 4, 5 and 7.

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

Jonathan Wellons, Table of n, a(n) for n = 1..1343

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

Adjacent sequences: A136896 A136897 A136898 * A136900 A136901 A136902

Keyword

base,nonn,changed

Author

Jonathan Wellons (wellons(AT)gmail.com), Jan 22 2008

Status

approved