OFFSET
1,1
COMMENTS
a(n) is == 5 or 6 (mod 10).
LINKS
Harvey P. Dale, Table of n, a(n) for n = 1..600
MATHEMATICA
sfdsQ[n_]:=Module[{idn=DigitCount[n]}, idn[[1]]==idn[[4]]==idn[[8]] == idn[[9]]==idn[[10]]==0]; Select[Range[2000]^2, sfdsQ] (* Harvey P. Dale, Oct 09 2011 *)
Table[Select[FromDigits/@Tuples[{2, 3, 5, 6, 7}, n], IntegerQ[Sqrt[#]]&], {n, 2, 7}]//Flatten (* Harvey P. Dale, Feb 04 2015 *)
CROSSREFS
KEYWORD
base,nonn
AUTHOR
Amarnath Murthy, Nov 16 2002
EXTENSIONS
Corrected and extended by Sascha Kurz, Jan 28 2003
STATUS
approved