A136827 Numbers k such that k and k^2 use only the digits 0, 1, 2 and 6.
0, 1, 10, 11, 100, 101, 110, 1000, 1001, 1010, 1011, 1100, 1101, 10000, 10001, 10010, 10011, 10100, 10110, 11000, 11001, 11010, 100000, 100001, 100010, 100011, 100100, 100101, 100110, 101000, 101001, 101100, 110000, 110001, 110010, 110100, 1000000, 1000001, 1000010, 1000011, 1000100, 1000101, 1000110, 1001000, 1001010, 1001100, 1010000
Offset: 1
Examples
101001020100101^2 = 10201206061261006216060210201.
Links
- Jonathan Wellons, Table of n, a(n) for n = 1..1418
- J. Wellons, Tables of Shared Digits [archived]
Programs
-
Mathematica
With[{c={0,1,2,6}},Select[FromDigits/@Tuples[c,7],SubsetQ[c, IntegerDigits[ #^2]]&]] (* Harvey P. Dale, Jul 04 2019 *)
Comments