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

Author

Reinhard Zumkeller, Oct 09 2002

Keywords

• nonn

Examples

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

Links

• Hugo Pfoertner, Table of n, a(n) for n = 1..10000
• Eric Weisstein's World of Mathematics, Perfect Powers.

Crossrefs

Cf. A001597, A025479, A076407, A322969.

Programs

Mathematica

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

PARI

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