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,3

Comments

Generated with DrScheme.

Links

Jonathan Wellons, Table of n, a(n) for n = 1..1418

J. Wellons, Tables of Shared Digits [archived]

Example

101001020100101^2 = 10201206061261006216060210201.

Mathematica

With[{c={0, 1, 2, 6}}, Select[FromDigits/@Tuples[c, 7], SubsetQ[c, IntegerDigits[ #^2]]&]] (* Harvey P. Dale, Jul 04 2019 *)

Crossrefs

Sequence in context: A136832 A136808 A136836 * A136831 A204009 A371047

Adjacent sequences: A136824 A136825 A136826 * A136828 A136829 A136830

Keyword

base,nonn

Author

Jonathan Wellons (wellons(AT)gmail.com), Jan 22 2008

Status

approved