|
|
A136988
|
|
Numbers k such that k and k^2 use only the digits 1, 2, 4, 5 and 6.
|
|
1
|
|
|
1, 2, 4, 5, 11, 12, 15, 16, 21, 25, 46, 65, 112, 121, 125, 162, 211, 215, 216, 254, 461, 465, 511, 512, 515, 516, 642, 665, 1116, 1121, 1125, 1211, 1242, 1246, 1454, 1465, 1616, 2125, 2261, 2262, 5121, 5125, 5162, 6415, 6454, 6515, 6642, 6665, 11142, 11254, 12511, 12515, 16262, 21125, 21242, 25525, 51211, 51246, 51616, 65125, 66515, 66642, 66665, 111465
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,2
|
|
COMMENTS
|
Generated with DrScheme.
|
|
LINKS
|
|
|
EXAMPLE
|
645145151616461^2 = 416212266654226451241246164521.
|
|
MATHEMATICA
|
Module[{nn=6, c={1, 2, 4, 5, 6}}, Select[Flatten[Table[FromDigits/@Tuples[c, n], {n, nn}]], SubsetQ[ c, IntegerDigits[#^2]]&]] (* Harvey P. Dale, Jun 16 2023 *)
|
|
CROSSREFS
|
|
|
KEYWORD
|
base,nonn
|
|
AUTHOR
|
Jonathan Wellons (wellons(AT)gmail.com), Jan 22 2008
|
|
STATUS
|
approved
|
|
|
|