A110277 Values of n such that the perfect deficiency (A109883) of n is a square.

1, 2, 4, 5, 6, 8, 14, 16, 17, 24, 28, 32, 37, 38, 42, 44, 64, 72, 92, 98, 101, 110, 128, 134, 152, 170, 172, 180, 186, 192, 197, 206, 248, 252, 256, 257, 284, 374, 398, 401, 410, 428, 434, 474, 480, 496, 512, 577, 590, 604, 616, 632, 638, 677, 752, 760, 864, 884

Offset

1,2

Links

Table of n, a(n) for n=1..58.

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

Cf. A110278.

Sequence in context: A037081 A270877 A303909 * A325680 A176654 A185867

Adjacent sequences: A110274 A110275 A110276 * A110278 A110279 A110280

Keyword

nonn

Author

Jason Earls, Jul 18 2005

Status

approved