A054983 Composite numbers n such that sigma(n+24) = sigma(n) + 24.

80, 95, 119, 299, 527, 962, 1247, 1479, 1739, 2783, 4307, 4958, 5240, 6015, 7878, 8342, 10379, 11639, 16967, 20687, 21439, 29294, 34547, 36917, 49022, 51959, 54707, 59807, 76127, 97319, 153242, 181427, 203318, 203822, 213419, 363302, 423999, 494882, 582902

Offset

1,1

Comments

See also A015914, A054799, A033560

Links

Donovan Johnson, Table of n, a(n) for n = 1..1000

Example

a(1) = 80, sigma(80)+24 = 186+24 = 210 = sigma(80+24) = sigma(104) = 104+52+26+13+8+4+2+1.

Mathematica

With[{nn=200000}, Select[Complement[Range[nn], Prime[Range[ PrimePi[nn]]]], DivisorSigma[1, #+24] == DivisorSigma[1, #]+24&]] (* Harvey P. Dale, Jan 12 2013 *)

Crossrefs

Cf. A015914-A015917, A054799.

Sequence in context: A294740 A069086 A119482 * A039545 A322162 A143755

Adjacent sequences: A054980 A054981 A054982 * A054984 A054985 A054986

Keyword

nonn

Author

Labos Elemer, May 29 2000

Status

approved