A136985 Numbers k such that k and k^2 use only the digits 1, 2, 3 and 9.
1, 3, 11, 111, 139
Offset: 1
Examples
139^2 = 19321.
Links
- David A. Corneth, PARI program
- Jonathan Wellons, Tables of Shared Digits [archived]
Programs
-
Mathematica
With[{c={1,2,3,9}},Select[Flatten[Table[FromDigits/@Tuples[c,n],{n,3}]],SubsetQ[ c,IntegerDigits[#^2]]&]] (* Harvey P. Dale, Oct 21 2019 *)
-
PARI
\\ See Corneth link. David A. Corneth, Oct 21 2019
Comments