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

Author

Reinhard Zumkeller, Sep 25 2003

Keywords

• sign

Comments

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

Crossrefs

Cf. A088233, A000961, A057820.

Programs

Mathematica

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