OFFSET
1,6
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