OFFSET
1,1
LINKS
Paolo Xausa, Table of n, a(n) for n = 1..1000
MATHEMATICA
(* A377091list is defined at A377091 *)
Flatten[Select[Most[Split[A377091list[1000], Abs[#2 - #1] == 1 &]], Length[#] == 1 &]] (* Paolo Xausa, Jan 20 2025 *)
CROSSREFS
KEYWORD
sign
AUTHOR
Paolo Xausa, Jan 18 2025
STATUS
approved