%I #11 Apr 12 2024 09:51:27
%S 2,8,22,26,28,68,82,88,262,278,472,474,478,668,826,2622,2762,2878,
%T 4762,6668,8762,8768,8822,8874,26878,27826,28678,66668,66878,68474,
%U 82878,86478,87662,88474,666668,666878,684674,687668,822662,2624478,2724472,2768474,2867878,2878626,6666668,6666878,6684674,6842826,6886674,8226474,8274472
%N Numbers k such that k and k^2 use only the digits 2, 4, 6, 7 and 8.
%C Generated with DrScheme.
%H Jonathan Wellons, <a href="/A137101/b137101.txt">Table of n, a(n) for n = 1..314</a>
%H J. Wellons, <a href="https://web.archive.org/web/20090206165028/http://jonathanwellons.com/shared-digits/">Tables of Shared Digits</a> [archived]
%e 876862462862762^2 = 768887778777748667624446268644.
%t With[{c={2,4,6,7,8}},Flatten[Table[Select[FromDigits/@Tuples[c,n], SubsetQ[ c,IntegerDigits[#^2]]&],{n,7}]]] (* _Harvey P. Dale_, Dec 20 2014 *)
%K base,nonn
%O 1,1
%A Jonathan Wellons (wellons(AT)gmail.com), Jan 22 2008