%I #14 Mar 11 2024 08:11:41
%S 1,16,36,361,3136,136161,633616,1313316,1336336,13366336,66113161,
%T 363131136,1616361616,6661661161,66631613161,31633661633161,
%U 613163131661161,131616316361116161,1166361161363316361
%N Squares composed of digits {1,3,6}.
%H Zhao Hui Du, <a href="/A053893/b053893.txt">Table of n, a(n) for n = 1..25</a>
%H Patrick De Geest, <a href="http://www.worldofnumbers.com/threedigits.htm">Squares containing at most three distinct digits, Index entries for related sequences</a>
%t Select[Flatten[Table[FromDigits/@Tuples[{1,3,6},n],{n,20}]],IntegerQ[ Sqrt[ #]]&] (* _Harvey P. Dale_, Jul 20 2021 *)
%Y Cf. A053892.
%K nonn,base
%O 1,2
%A _Patrick De Geest_, Mar 15 2000
%E More terms from C. Ronaldo (aga_new_ac(AT)hotmail.com), Jan 04 2005
|