OFFSET
1,1
LINKS
Hugo Pfoertner, Table of n, a(n) for n = 1..10000
EXAMPLE
a(1) = 2 because the first perfect power 4 = 2^2,
a(2) = 5: added exponent 3 from 8 = 2^3,
a(3) = 7: added exponent 2 from 9 = 3^2,
a(4) = 11: added largest exponent 4 from 16=2^4.
MATHEMATICA
Union@ Accumulate@ Table[If[Set[e, GCD @@ #[[All, -1]]] > 1, e, 0] &@ FactorInteger@ n, {n, 4, 2400}] (* Michael De Vlieger, Jan 01 2019 *)
PROG
(PARI) my(s=0); for(k=1, 3^7, if(j=ispower(k), print1(s+=j, ", ")))
CROSSREFS
KEYWORD
nonn
AUTHOR
Hugo Pfoertner, Jan 01 2019
STATUS
approved