A379724 a(n) = A000668(n) - 1.

2, 6, 30, 126, 8190, 131070, 524286, 2147483646, 2305843009213693950, 618970019642690137449562110, 162259276829213363391578010288126, 170141183460469231731687303715884105726

Offset

1,1

Links

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

Formula

a(n) = A023900(A000396(n)), provided no odd perfect numbers exist.

Conjecture; a(n) = A072868(n) - 2. - Omar E. Pol, Jan 16 2025

Mathematica

nn = 12; A023900[n_] := DivisorSum[n, MoebiusMu[#] # &]; Table[A023900[PerfectNumber[n]], {n, 1, nn}]

Crossrefs

Cf. A000396, A000668, A023900, A072868, A379725.

Sequence in context: A065563 A035105 A073969 * A295863 A224530 A120950

Adjacent sequences: A379721 A379722 A379723 * A379725 A379726 A379727

Keyword

nonn

Author

Mats Granvik and Antti Karttunen, Dec 31 2024

Status

approved