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