A136813 Numbers k such that k and k^2 use only the digits 0, 1, 2, 3 and 7.
0, 1, 10, 11, 100, 101, 110, 111, 1000, 1001, 1010, 1011, 1100, 1101, 1110, 10000, 10001, 10010, 10011, 10100, 10101, 10110, 10111, 11000, 11001, 11010, 11100, 11101, 100000, 100001, 100010, 100011, 100100, 100101, 100110, 100111, 101000, 101001, 101010, 101011, 101100, 101110, 110000, 110001, 110010, 110100, 110101, 111000, 111001, 111010
Offset: 1
Examples
3711303010100^2 = 13773770032777320702010000.
Links
- Jonathan Wellons, Table of n, a(n) for n = 1..1411
- J. Wellons, Tables of Shared Digits [archived]
Programs
-
Mathematica
With[{c={0,1,2,3,7}},Select[FromDigits/@Tuples[c,6],SubsetQ[c,IntegerDigits[#^2]]&]] (* Harvey P. Dale, Apr 12 2024 *)
Comments