OFFSET
1,1
MATHEMATICA
dp6Q[n_]:=Module[{srn=Sqrt[n], rdn, d}, rdn=RealDigits[srn, 10, 10]; If[ !IntegerQ[srn], d=rdn[[2]]+1, d=1]; !IntegerQ[srn]&&rdn[[1, d]]==6]; Select[Range[600], dp6Q] (* Harvey P. Dale, May 18 2012 *)
CROSSREFS
KEYWORD
nonn,easy,base
AUTHOR
Patrick De Geest, Sep 15 1998
STATUS
approved