%I#9 2024年4月12日09:51:27
%S 7,8,67,8866786488688797466678874888766667684748647887664,
%电话:947889486798978666794788694788794867898487898888888887,
%电话:666666 76846869747886974867697766499788947876498979789984876666676977678697768769997764886948648879667688688789847678898877687
%N数字k,这样k和k^2只使用数字4、6、7、8和9。
%C使用DrScheme生成。
%H Jonathan Wellons,<a href=“/A137145/b137145.txt”>n的表,a(n)表示n=1..256</a>
%H J.Wellons,<a href=“https://web.archive.org/web/20090206165028/http://jonathanwellons.com/shared-数字/“>共享数字表
%电子邮箱946968768486478^2=89674984848879678874868844484。
%t With[{c={4,6,7,8,9}},Table[Select[FromDigits/@Tuples[c,n],SubsetQ[c,IntegerDigits[#^2]&],{n,8}]//Flatten(*H arvey P.Dale_,2016年9月18日*)
%K基数,non,已更改
%O 1,1
%乔纳森·威龙(Wellons(AT)gmail.com),2008年1月22日
|