A337934 Sums of two distinct abundant numbers.

30, 32, 36, 38, 42, 44, 48, 50, 52, 54, 56, 58, 60, 62, 64, 66, 68, 70, 72, 74, 76, 78, 80, 82, 84, 86, 88, 90, 92, 94, 96, 98, 100, 102, 104, 106, 108, 110, 112, 114, 116, 118, 120, 122, 124, 126, 128, 130, 132, 134, 136, 138, 140, 142, 144, 146, 148, 150, 152, 154, 156, 158, 160

Offset

1,1

Links

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

Example

30 is in the sequence since it is the sum of the two distinct abundant numbers 12 and 18.

Mathematica

Table[If[Sum[(1 - Sign[Floor[(2 (n - i))/DivisorSigma[1, n - i]]])*(1 - Sign[Floor[(2 i)/DivisorSigma[1, i]]]), {i, Floor[(n - 1)/2]}] > 0, n, {}], {n, 200}] // Flatten

Crossrefs

Cf. A005101.

Sequence in context: A043810 A043819 A133266 * A335148 A328737 A370127

Adjacent sequences: A337931 A337932 A337933 * A337935 A337936 A337937

Keyword

nonn

Author

Wesley Ivan Hurt, Oct 01 2020

Status

approved