A076408 Sum of first n perfect powers.

1, 5, 13, 22, 38, 63, 90, 122, 158, 207, 271, 352, 452, 573, 698, 826, 970, 1139, 1335, 1551, 1776, 2019, 2275, 2564, 2888, 3231, 3592, 3992, 4433, 4917, 5429, 5958, 6534, 7159, 7835, 8564, 9348, 10189, 11089, 12050, 13050, 14074, 15163, 16319, 17544

Offset

1,2

Links

Hugo Pfoertner, Table of n, a(n) for n = 1..10000

Eric Weisstein's World of Mathematics, Perfect Powers.

Example

a(8) = 1+4+8+9+16+25+27+32 = 122.

Mathematica

Accumulate[Join[{1}, Select[Range[1500], GCD@@FactorInteger[#][[All, 2]]>1&]]] (* Harvey P. Dale, Feb 12 2023 *)

Prog

(PARI) print1(s=1, ", "); for(k=2, 1225, if(ispower(k), print1(s+=k, ", "))) \\ Hugo Pfoertner, Jan 01 2019

Crossrefs

Cf. A001597, A025479, A076407, A322969.

Sequence in context: A277189 A060004 A174172 * A006353 A155142 A377179

Adjacent sequences: A076405 A076406 A076407 * A076409 A076410 A076411

Keyword

nonn,changed

Author

Reinhard Zumkeller, Oct 09 2002

Status

approved