OFFSET
1,1
FORMULA
a(n) = sqrt(A077437(n)).
MATHEMATICA
nsdQ[n_]:=Module[{idn=IntegerDigits[n]}, !MemberQ[idn, 1] && And@@SquareFreeQ/@idn]; Select[Range[2000], nsdQ[#^2]&] (* Harvey P. Dale, Feb 01 2011 *)
CROSSREFS
KEYWORD
base,nonn
AUTHOR
Zak Seidov, May 02 2009
STATUS
approved