login
A058468
Squares composed of digits {3,8,9}.
1
9, 339889, 3383399889, 3398339883988899839889, 39989983893893399999889
OFFSET
1,1
MATHEMATICA
Select[Flatten[Table[10#+9&/@FromDigits/@Tuples[{3, 8, 9}, n], {n, 0, 10}]], IntegerQ[Sqrt[#]]&] (* The program generates the first three terms of the sequence. *) (* Harvey P. Dale, Jan 28 2024 *)
CROSSREFS
Cf. A058467.
Sequence in context: A159344 A120352 A225069 * A133414 A013850 A174001
KEYWORD
nonn,base,hard,more
AUTHOR
Patrick De Geest, Nov 15 2000
EXTENSIONS
a(3) corrected by Sascha Kurz, Jun 12 2021
STATUS
approved