A306531 Composite numbers k such that the sum of their aliquot parts divides k-1.

4, 8, 9, 16, 25, 27, 32, 49, 64, 77, 81, 121, 125, 128, 169, 243, 256, 289, 343, 361, 512, 529, 611, 625, 729, 841, 961, 1024, 1073, 1331, 1369, 1681, 1849, 2033, 2048, 2187, 2197, 2209, 2401, 2809, 3125, 3481, 3721, 4096, 4489, 4913, 5041, 5293, 5329, 6031, 6241

Offset

1,1

Links

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

Example

Aliquot parts of 77 are 1, 7, 11 and 78/(1+7+11) = 76/19 = 4.

Maple

with(numtheory): P:=proc(n) if not isprime(n) and frac((n-1)/(sigma(n)-n))=0 then n; fi; end: seq(P(i), i=2..6241);

Prog

(PARI) isok(n) = (n!=1) && !isprime(n) && !frac((n-1)/(sigma(n)-n)); \\ Michel Marcus, Feb 28 2019

Crossrefs

Union of A059047 and A246547.

Cf. A203966, A306532.

Sequence in context: A087244 A080062 A249125 * A363722 A088949 A134600

Adjacent sequences: A306528 A306529 A306530 * A306532 A306533 A306534

Keyword

nonn,easy

Author

Paolo P. Lava, Feb 22 2019

Status

approved