A188951 Number of perfect powers (A001597) < 2^n.

0, 1, 1, 2, 4, 7, 10, 15, 22, 30, 41, 57, 81, 113, 155, 216, 298, 416, 582, 813, 1135, 1588, 2223, 3115, 4368, 6135, 8622, 12127, 17063, 24022, 33838, 47688, 67226, 94804, 133737, 188709, 266350, 376018, 530940, 749819, 1059096, 1496143, 2113801, 2986769

Offset

0,4

Links

Amiram Eldar, Table of n, a(n) for n = 0..6643

Formula

a(n) = A070228(n) - 1 for n > 1. - Amiram Eldar, May 19 2022

Example

For n=3, the perfect powers smaller than 2^3=8 are: 1 and 4. So a(3) = 2.

Mathematica

Join[{0, 1}, Table[-Sum[MoebiusMu[x]*Floor[2^(n/x) - 1], {x, 2, n}], {n, 2, 50}]]

Prog

(PARI) a(n) = sum(k=1, 2^n-1, (k==1) || ispower(k)); \\ Michel Marcus, Apr 11 2016

Crossrefs

Cf. A001597, A070228, A070428 (perfect powers not exceeding 10^n).

Sequence in context: A362040 A024668 A340248 * A226136 A364612 A176099

Adjacent sequences: A188948 A188949 A188950 * A188952 A188953 A188954

Keyword

nonn

Author

T. D. Noe, Apr 20 2011

Status

approved