OFFSET
1,2
LINKS
MATHEMATICA
Flatten[Table[Select[FromDigits/@Tuples[{1, 2, 9}, n], IntegerQ[Sqrt[#]]&], {n, 12}]] (* This program generates only the first 9 terms of the sequence *) (* Harvey P. Dale, Oct 19 2011 *)
CROSSREFS
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
One more term from Jon E. Schoenfield, Sep 03 2006
Two more terms from Mishima's webpage added by Max Alekseyev, Jun 17 2011
a(17) from Zhao Hui Du, Feb 29 2024
STATUS
approved