login
A136986
Numbers k such that k and k^2 use only the digits 1, 2 and 4.
1
1, 2, 11, 12, 21
OFFSET
1,2
COMMENTS
Sequence terminates.
Generated with DrScheme.
LINKS
EXAMPLE
21^2 = 441.
MATHEMATICA
Table[Select[(FromDigits/@Tuples[{1, 2, 4}, d]), SubsetQ[{1, 2, 4}, IntegerDigits[ #^2]]&], {d, 2}]//Flatten (* Harvey P. Dale, Jan 10 2022 *)
CROSSREFS
Cf. A137002.
Sequence in context: A110126 A125020 A065020 * A096109 A136997 A085184
KEYWORD
base,fini,full,nonn
AUTHOR
Jonathan Wellons (wellons(AT)gmail.com), Jan 22 2008
STATUS
approved