OFFSET
1,3
MATHEMATICA
p=1; lst={}; Do[AppendTo[lst, n^p-p^n]; p=p+2, {n, 4!}]; lst
Table[n^(2n-1)-(2n-1)^n, {n, 20}] (* Harvey P. Dale, Aug 10 2023 *)
CROSSREFS
KEYWORD
sign
AUTHOR
Vladimir Joseph Stephan Orlovsky, Sep 05 2009
EXTENSIONS
Definition corrected by R. J. Mathar, Sep 06 2009
STATUS
approved