login
A137054
Numbers k such that k and k^2 use only the digits 1, 4, 6 and 8.
0
1, 4, 8, 41, 6441, 68444641
OFFSET
1,2
COMMENTS
Generated with DrScheme.
LINKS
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
KEYWORD
base,nonn,more
AUTHOR
Jonathan Wellons (wellons(AT)gmail.com), Jan 22 2008
STATUS
approved