OFFSET
1,2
MATHEMATICA
(* A377091list is defined at A377091 *)
PositionIndex[Map[Boole[# == Range[Min[#], Max[#]] || # == Range[Max[#], Min[#], -1]] &, Most[SplitBy[A377091list[10000], Sign]]]][1]
CROSSREFS
KEYWORD
nonn
AUTHOR
Paolo Xausa, Jan 25 2025
STATUS
approved
