%I #13 May 10 2024 10:59:54
%S 1,3,6,13,19,31,63,369,31131,969119
%N Numbers k such that k and k^2 use only the digits 1, 3, 6 and 9.
%C Generated with DrScheme.
%H Jonathan Wellons, <a href="https://web.archive.org/web/20090206165028/http://jonathanwellons.com/shared-digits/">Tables of Shared Digits</a> [archived]
%e 969119^2 = 939191636161.
%t With[{c={1,3,6,9}},Table[Select[FromDigits/@Tuples[c,n], SubsetQ[c, IntegerDigits[ #^2]]&],{n,6}]]//Flatten (* _Harvey P. Dale_, Nov 17 2018 *)
%K base,nonn,more
%O 1,2
%A Jonathan Wellons (wellons(AT)gmail.com), Jan 22 2008
|