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