%I #9 Apr 12 2024 09:51:27
%S 1,4,7,14,69,119,4119,4446,4469,6479,41469,44469,69114,641619,679479,
%T 4116974,4176974,4179676,4411479,6416969,6477974,6646614,6646764,
%U 6691771,6794446,9719114,41766969,41794676,41799479,64169446,66464119,66679676,67949796,97466771,99747176,414476974,441491469,447179119,679679676,997496614
%N Numbers k such that k and k^2 use only the digits 1, 4, 6, 7 and 9.
%C Generated with DrScheme.
%H Jonathan Wellons, <a href="/A137053/b137053.txt">Table of n, a(n) for n = 1..143</a>
%H J. Wellons, <a href="https://web.archive.org/web/20090206165028/http://jonathanwellons.com/shared-digits/">Tables of Shared Digits</a> [archived]
%e 647416146496719^2 = 419147666744661117496677764961.
%t With[{c={1,4,6,7,9}},Table[Select[FromDigits/@Tuples[c,n],SubsetQ[c,IntegerDigits[#^2]]&],{n,9}]]//Flatten (* _Harvey P. Dale_, Mar 21 2024 *)
%K base,nonn,changed
%O 1,2
%A Jonathan Wellons (wellons(AT)gmail.com), Jan 22 2008
|