OFFSET
1,1
COMMENTS
Each term is either 25 or 56 mod 100 (which is used in the Mathematica program below to improve the search speed). - Harvey P. Dale, Jul 02 2016
LINKS
Zhao Hui Du, Table of n, a(n) for n = 1..44
MATHEMATICA
Select[Flatten[Table[{FromDigits/@(Join[#, {2, 5}]&/@Tuples[{2, 5, 6}, n]), FromDigits/@ (Join[#, {5, 6}]&/@Tuples[{2, 5, 6}, n])}, {n, 0, 14}]], IntegerQ[ Sqrt[#]]&]//Sort (* Harvey P. Dale, Jul 02 2016 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
EXTENSIONS
Extended and corrected by author 03/2000.
STATUS
approved