A137144 Numbers k such that k and k^2 use only the digits 4, 6, 7 and 8.
8, 88, 8874, 68474, 86478
Offset: 1
Examples
86478^2 = 7478444484.
Links
- Jonathan Wellons, Tables of Shared Digits
Programs
-
Mathematica
clearQ[n_]:=Module[{dc=DigitCount[n]},dc[[1]]==dc[[2]]==dc[[3]]==dc[[5]]==dc[[9]]==dc[[10]]==0] Select[Range[1000000],clearQ[#]&&clearQ[#^2]&] (* Harvey P. Dale, Dec 03 2010 *)
Comments