OFFSET
1,2
MATHEMATICA
subtract = If[ #1 < #2, Throw[ #1], #1 - #2]&; f[n_] := Catch @ Fold[subtract, n, Divisors @ n]; Select[ Range[905], IntegerQ[ Sqrt[ f[ # ]]] &] (* Robert G. Wilson v, Jul 21 2005 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Jason Earls, Jul 18 2005
STATUS
approved