OFFSET
1,1
LINKS
Harvey P. Dale and Charles R Greathouse IV, Table of n, a(n) for n = 1..10000 (first 294 terms from Dale)
MATHEMATICA
Flatten[Table[Select[FromDigits/@Tuples[{2, 3, 5, 6, 7, 8}, n], IntegerQ[ Sqrt[ #]]&], {n, 2, 6}]] (* Harvey P. Dale, Feb 05 2014 *)
PROG
(PARI) is(n)=issquare(n) && #setintersect(Set(digits(n)), [0, 1, 4, 9])==0 \\ Charles R Greathouse IV, Aug 28 2016
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Reinhard Zumkeller, Nov 06 2002
EXTENSIONS
Replaced 9 by 8 in the definition. - Tanya Khovanova, Dec 09 2008
STATUS
approved