OFFSET
0
LINKS
Paolo Xausa, Table of n, a(n) for n = 0..10000
MATHEMATICA
Nest[Flatten[ReplaceAll[#, {-1->1, 0->{1, -1}, 1->{1, 0}}]]&, {0}, 10] (* Paolo Xausa, Nov 09 2023 *)
CROSSREFS
KEYWORD
sign
AUTHOR
N. J. A. Sloane, Aug 05 2018
STATUS
approved