|
%I #13 May 10 2024 08:51:31
%S 1,5,11,15,16,25,125,511,515,516,1125,2261,5125,12511,12515,25525,
%T 51211,125125,5162515,51626211,125162515,5162525125
%N Numbers k such that k and k^2 use only the digits 1, 2, 5 and 6.
%C Generated with DrScheme.
%C Subsequence of A137004 and A137007. - _M. F. Hasler_, Jan 24 2008
%H Jonathan Wellons, <a href="https://web.archive.org/web/20090206165028/http://jonathanwellons.com/shared-digits/">Tables of Shared Digits</a> [archived]
%e 5162525125^2 = 26651665666256265625.
%t okQ[n_]:=With[{idn=IntegerDigits[n^2]},And@@Table[MemberQ[{1,2,5,6}, idn[[i]]],{i,Length[idn]}]]; Flatten[Table[Select[ FromDigits/@ Tuples[{1,2,5,6},k],okQ],{k,10}]] (* _Harvey P. Dale_, Jul 07 2012 *)
%K base,nonn,more
%O 1,2
%A Jonathan Wellons (wellons(AT)gmail.com), Jan 22 2008
|
