|
%I #9 Apr 12 2024 09:51:26
%S 0,1,10,100,1000,10000,100000,130501,550501,1000000,1305010,5505010,
%T 7553501,10000000,10550501,13050100,55050100,55055001,57533501,
%U 57733501,73055001,75535010,100000000,105505010,130501000,131531501,550501000,550550010,575335010,575355001,577335010,730550010,755350100,757033751
%N Numbers k such that k and k^2 use only the digits 0, 1, 3, 5 and 7.
%C Generated with DrScheme.
%H Jonathan Wellons, <a href="/A136844/b136844.txt">Table of n, a(n) for n = 1..380</a>
%H J. Wellons, <a href="https://web.archive.org/web/20090206165028/http://jonathanwellons.com/shared-digits/">Tables of Shared Digits</a> [archived]
%e 130503170503751^2 = 17031077511531105035105070001.
%t With[{c={0,1,3,5,7}},Select[FromDigits/@Tuples[c,9],SubsetQ[c,IntegerDigits[#^2]]&]] (* _Harvey P. Dale_, Feb 04 2024 *)
%K base,nonn
%O 1,3
%A Jonathan Wellons (wellons(AT)gmail.com), Jan 22 2008
|
