A217768 Smallest number k > 0 for which sigma(k - n) = sigma(k + n).

34, 53, 23, 19, 26, 41, 31, 38, 49, 52, 68, 82, 112, 80, 103, 76, 110, 123, 4, 83, 101, 136, 3, 164, 130, 5, 147, 133, 381, 254, 7, 149, 253, 1, 131, 246, 172, 8, 404, 7, 6, 312, 148, 209, 309, 241, 487, 328, 9, 260

Offset

1,1

Comments

The sigma() in the definition is the sum-of-divisors function A000203.

If m is negative, the definition uses the convention sigma(m) = sigma(-m).

Links

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

Example

a(4) = 19 because sigma(19 + 4) = sigma(23) = 1 + 23 = 24 and sigma(19 - 4) = sigma(15) = 1 + 3 + 5 + 15 = 24 and there is no k < 19 for which sigma(k + 4) = sigma(k - 4).
a(26) = 5 because sigma(5 + 26) = sigma(31) = 1 + 31 = 32 and sigma(5 - 26) = sigma(-21) = sigma(21) = 1 + 3 + 7 + 21 = 32.

Mathematica

Table[Min[Select[Range[500], DivisorSigma[1, # - n] == DivisorSigma[1, # + n] &]], {n, 50}]

Crossrefs

Cf. A067135, A175876, A223091.

Sequence in context: A214473 A332530 A092888 * A217704 A274380 A305061

Adjacent sequences: A217765 A217766 A217767 * A217769 A217770 A217771

Keyword

nonn

Author

Jayanta Basu, Mar 24 2013

Status

approved