A136876 Numbers k such that k and k^2 use only the digits 0, 1, 6, 7 and 8.

0, 1, 10, 100, 881, 1000, 8776, 8810, 10000, 10801, 87760, 88100, 88776, 100000, 108010, 877600, 881000, 887760, 1000000, 1008001, 1077776, 1080100, 7866881, 8776000, 8810000, 8877600, 10000000, 10080010, 10777760, 10801000, 78668810, 81778181, 87760000, 88100000, 88776000, 100000000, 100080001, 100800100, 107777600, 108010000

Offset

1,3

Comments

Generated with DrScheme.

Links

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

J. Wellons, Tables of Shared Digits [archived]

Example

108660810680801^2 = 11807171777808876681110001601.

Mathematica

With[{c={0, 1, 6, 7, 8}}, Select[FromDigits/@Tuples[c, 9], SubsetQ[c, IntegerDigits[ #^2]]&]] (* Harvey P. Dale, Mar 10 2017 *)

Crossrefs

Sequence in context: A224348 A213298 A224007 * A231157 A231163 A136858

Adjacent sequences: A136873 A136874 A136875 * A136877 A136878 A136879

Keyword

base,nonn,changed

Author

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

Status

approved