A054985 Composite numbers x such that sigma(x+120) = sigma(x)+120.

182, 203, 287, 350, 407, 558, 611, 731, 779, 803, 963, 1424, 1643, 2627, 2747, 3431, 3806, 4187, 4223, 5063, 6767, 7946, 8927, 9047, 11904, 12707, 12878, 15794, 18923, 20567, 27263, 31175, 32111, 34427, 43139, 43811, 45854, 50165, 52592, 57479

Offset

1,1

Comments

See also A015914, A054799, A033560.

Links

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

Example

a(6)=558, sigma(558)+120=1248+120=1368=sigma(678)=sigma(558+120).

Mathematica

Select[Range[60000], CompositeQ[#]&&DivisorSigma[1, #]+120 == DivisorSigma[ 1, #+120]&] (* Harvey P. Dale, Nov 25 2022 *)

Prog

(PARI) isok(n) = !isprime(n) && (sigma(n+120) == (sigma(n) + 120)); \\ Michel Marcus, Dec 31 2013

Crossrefs

Cf. A015914-A015917, A054799.

Sequence in context: A265997 A204378 A054572 * A124185 A218563 A145297

Adjacent sequences: A054982 A054983 A054984 * A054986 A054987 A054988

Keyword

nonn

Author

Labos Elemer, May 29 2000

Status

approved