A088234 First differences of exponents of consecutive prime powers.

1, 0, 1, -1, 0, 2, -1, -1, 0, 3, -3, 0, 0, 1, 1, -2, 0, 4, -4, 0, 0, 0, 1, -1, 0, 0, 5, -5, 0, 0, 0, 3, -3, 0, 0, 0, 0, 0, 0, 0, 1, 1, -2, 6, -6, 0, 0, 0, 0, 0, 0, 0, 1, -1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 4, -4, 7, -7, 0, 0, 0, 0, 0, 0, 1, -1, 0, 0, 0, 0, 0, 0, 2, -2, 0, 0, 0, 1, -1, 0, 0

Offset

1,6

Comments

a(n) = A025474(n+1) - A025474(n).

Links

Table of n, a(n) for n=1..94.

Mathematica

Join[{1}, Differences[FactorInteger[#][[1, 2]]&/@Select[Range[ 400], PrimePowerQ]]] (* Harvey P. Dale, Jul 10 2020 *)

Crossrefs

Cf. A088233, A000961, A057820.

Sequence in context: A119513 A308454 A085815 * A228717 A215977 A357646

Adjacent sequences: A088231 A088232 A088233 * A088235 A088236 A088237

Keyword

sign

Author

Reinhard Zumkeller, Sep 25 2003

Status

approved