1,2

Conjecture: sequence is infinite.

A109883(37)=36 & A109883(38)=16, both of which are squares, so 37 is a term.

subtract = If[ #1 < #2, Throw[ #1], #1 - #2]&; f[n_] := Catch @ Fold[subtract, n, Divisors @ n]; (from Bobby R. Treat, (DrBob(AT)bigfoot.com), Jul 14 2005) a = False; Do[b = IntegerQ[ Sqrt[ f[ n]]]; If[{a, b} == {True, True}, Print[n - 1]]; a = b, {n, 10^7}] (from Robert G. Wilson v (rgwv(AT)rgwv.com), Jul 21 2005)

Cf. A110277.

Sequence in context: A058622 A064294 A057729 this_sequence A013628 A127007 A007837

Adjacent sequences: A110275 A110276 A110277 this_sequence A110279 A110280 A110281

more,nonn

Jason Earls (zevi_35711(AT)yahoo.com), Jul 18 2005