login
A088234
First differences of exponents of consecutive prime powers.
1
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).
MATHEMATICA
Join[{1}, Differences[FactorInteger[#][[1, 2]]&/@Select[Range[ 400], PrimePowerQ]]] (* Harvey P. Dale, Jul 10 2020 *)
CROSSREFS
KEYWORD
sign
AUTHOR
Reinhard Zumkeller, Sep 25 2003
STATUS
approved