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
Keywords
Links
- Amiram Eldar, Table of n, a(n) for n = 1..1000
Programs
-
Mathematica
a[n_] := 2^n - DivisorSum[n, Binomial[n, #] &]; Array[a, 40] (* Amiram Eldar, Aug 18 2024 *)
-
PARI
a(n) = 2^n - sumdiv(n, d, binomial(n, d)); \\ Michel Marcus, Aug 25 2019
Formula
a(p) = 2^p - p - 1 for a prime p.
Extensions
More terms from Amiram Eldar, Aug 18 2024