A322969 Sum of the largest exponents A025479 of the first n perfect powers > 1.

2, 5, 7, 11, 13, 16, 21, 23, 25, 31, 35, 37, 39, 42, 49, 51, 53, 55, 58, 60, 65, 73, 75, 77, 80, 82, 84, 86, 88, 97, 99, 101, 105, 107, 113, 115, 117, 119, 121, 124, 134, 136, 138, 140, 144, 147, 149, 151, 153, 155, 157, 160, 162, 164, 166, 168, 179, 181, 188

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

Cf. A001597, A025479, A076408.

Sequence in context: A189468 A004134 A191406 * A229470 A157829 A020581

Adjacent sequences: A322966 A322967 A322968 * A322970 A322971 A322972

Keyword

nonn

Author

Hugo Pfoertner, Jan 01 2019

Status

approved