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
Keywords
Programs
-
Mathematica
Join[{1},Differences[FactorInteger[#][[1,2]]&/@Select[Range[ 400], PrimePowerQ]]] (* Harvey P. Dale, Jul 10 2020 *)
Comments