login
A053893
Squares composed of digits {1,3,6}.
3
1, 16, 36, 361, 3136, 136161, 633616, 1313316, 1336336, 13366336, 66113161, 363131136, 1616361616, 6661661161, 66631613161, 31633661633161, 613163131661161, 131616316361116161, 1166361161363316361
OFFSET
1,2
MATHEMATICA
Select[Flatten[Table[FromDigits/@Tuples[{1, 3, 6}, n], {n, 20}]], IntegerQ[ Sqrt[ #]]&] (* Harvey P. Dale, Jul 20 2021 *)
CROSSREFS
Cf. A053892.
Sequence in context: A264546 A218523 A300535 * A068833 A116190 A070587
KEYWORD
nonn,base
AUTHOR
Patrick De Geest, Mar 15 2000
EXTENSIONS
More terms from C. Ronaldo (aga_new_ac(AT)hotmail.com), Jan 04 2005
STATUS
approved