A137054 Numbers k such that k and k^2 use only the digits 1, 4, 6 and 8.

1, 4, 8, 41, 6441, 68444641

Offset

1,2

Comments

Generated with DrScheme.

Links

Table of n, a(n) for n=1..6.

Jonathan Wellons, Tables of Shared Digits [archived]

Example

68444641^2 = 4684668881618881.

Mathematica

With[{c={1, 4, 6, 8}}, Select[Flatten[Table[FromDigits/@Tuples[c, n], {n, 8}]], SubsetQ[ c, IntegerDigits[ #^2]]&]] (* Harvey P. Dale, Jan 09 2024 *)

Crossrefs

Sequence in context: A137047 A137052 A111411 * A338423 A163343 A284972

Adjacent sequences: A137051 A137052 A137053 * A137055 A137056 A137057

Keyword

base,nonn,more

Author

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

Status

approved