A056200 a(n) = 2^n - A056045(n).

1, 1, 4, 5, 26, 22, 120, 149, 418, 716, 2036, 2378, 8178, 12846, 29294, 50709, 131054, 193972, 524268, 843260, 1979520, 3488618, 8388584, 13190042, 33501276, 56707912, 129527950, 227113934, 536870882, 887838482, 2147483616, 3683332117, 8396392382, 14846262368, 34352689180

Offset

1,3

Links

Amiram Eldar, Table of n, a(n) for n = 1..1000

Formula

a(p) = 2^p - p - 1 for a prime p.

Mathematica

a[n_] := 2^n - DivisorSum[n, Binomial[n, #] &]; Array[a, 40] (* Amiram Eldar, Aug 18 2024 *)

Prog

(PARI) a(n) = 2^n - sumdiv(n, d, binomial(n, d)); \\ Michel Marcus, Aug 25 2019

Crossrefs

Cf. A000079, A056045.

Sequence in context: A187996 A144053 A084465 * A282690 A282687 A153429

Adjacent sequences: A056197 A056198 A056199 * A056201 A056202 A056203

Keyword

nonn

Author

Labos Elemer, Aug 02 2000

Extensions

More terms from Amiram Eldar, Aug 18 2024

Status

approved