|
|
A076408
|
|
Sum of first n perfect powers.
|
|
5
|
|
|
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
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,2
|
|
LINKS
|
|
|
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
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|