|
%I #11 Apr 12 2024 09:51:27
%S 1,5,11,15,16,25,96,125,161,511,515,516,1119,1125,1515,1619,2261,5125,
%T 9619,9961,12296,12511,12515,16215,16296,22619,22925,25525,25596,
%U 51211,96211,112515,125125,126211,126969,129215,161125,161219,226961,256169,262925,511969,516296,956619,959961,1119219,1121125,1126925,1252965,1261965,1262125
%N Numbers k such that k and k^2 use only the digits 1, 2, 5, 6 and 9.
%C Generated with DrScheme.
%H Jonathan Wellons, <a href="/A137006/b137006.txt">Table of n, a(n) for n = 1..420</a>
%H J. Wellons, <a href="https://web.archive.org/web/20090206165028/http://jonathanwellons.com/shared-digits/">Tables of Shared Digits</a> [archived]
%e 126961261519525^2 = 16119161926629219511956225625.
%t With[{c={1,2,5,6,9}},Flatten[Table[FromDigits/@Select[ Tuples[c,n], SubsetQ[ c,IntegerDigits[FromDigits[#]^2]]&],{n,7}]]] (* _Harvey P. Dale_, Nov 25 2014 *)
%K base,nonn,changed
%O 1,2
%A Jonathan Wellons (wellons(AT)gmail.com), Jan 22 2008
|
