A137007 Numbers k such that k and k^2 use only the digits 1, 2, 5 and 7.
1, 5, 11, 15, 715
Offset: 1
Examples
715^2 = 511225.
Links
- Jonathan Wellons, Tables of Shared Digits [archived]
Programs
-
Mathematica
Module[{nn=10,c={1,2,5,7}},Select[Flatten[Table[FromDigits/@Tuples[c,n],{n,nn}]],SubsetQ[c,IntegerDigits[#^2]]&]] (* Harvey P. Dale, Sep 04 2018 *)
Comments