|
%I #9 Apr 12 2024 09:51:26
%S 0,2,5,20,45,50,95,200,205,450,495,500,502,505,950,995,2000,2005,2050,
%T 2245,4495,4500,4505,4905,4950,4955,4995,5000,5002,5005,5020,5045,
%U 5050,5095,9500,9950,9995,20000,20005,20050,20495,20500,20505,22450,44950,44955,44995,45000,45005,45045,45050,49050,49500,49550,49905,49950,49955,49995,50000
%N Numbers k such that k and k^2 use only the digits 0, 2, 4, 5 and 9.
%C Generated with DrScheme.
%H Jonathan Wellons, <a href="/A136901/b136901.txt">Table of n, a(n) for n = 1..1132</a>
%H J. Wellons, <a href="https://web.archive.org/web/20090206165028/http://jonathanwellons.com/shared-digits/">Tables of Shared Digits</a> [archived]
%e 542450205^2 = 294252224904542025.
%t With[{c={0,2,4,5,9}},Select[FromDigits/@Tuples[c,5],SubsetQ[ c, IntegerDigits[ #^2]]&]] (* _Harvey P. Dale_, Jan 28 2019 *)
%K base,nonn,changed
%O 1,2
%A Jonathan Wellons (wellons(AT)gmail.com), Jan 22 2008
|
