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

1, 76, 81, 766, 816, 881, 7181, 7666, 71881, 76666, 81681, 81766, 88181, 88776, 766666, 767181, 817666, 817776, 876766, 7666666, 7866881, 8115766, 8176666, 76666666, 81766666, 81767181, 87617166, 87857166, 88157181, 88761881, 766587576, 766658716, 766658776, 766666666, 767187576, 785187166, 811657666, 811711881, 816156766

Offset

1,2

Comments

Generated with DrScheme.

Links

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

J. Wellons, Tables of Shared Digits [archived]

Example

876861765716681^2 = 768886556175775558717561655761.

Mathematica

With[{c={1, 5, 6, 7, 8}}, Select[Flatten[Table[FromDigits/@Tuples[c, n], {n, 9}]], SubsetQ[c, IntegerDigits[#^2]]&]] (* Harvey P. Dale, Nov 15 2018 *)

Crossrefs

Sequence in context: A031321 A095599 A095587 * A095573 A095559 A095545

Adjacent sequences: A137057 A137058 A137059 * A137061 A137062 A137063

Keyword

base,nonn

Author

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

Status

approved