A380223 Positions of ones in A379880.
8, 11, 14, 18, 22, 26, 29, 32, 38, 40, 41, 45, 49, 50, 55, 56, 61, 64, 67, 76, 80, 84, 85, 90, 91, 96, 97, 116, 127, 128, 129, 139, 150, 172, 173, 174, 175, 197, 198, 199, 200, 202, 203, 204, 207, 222, 223, 246, 247, 250, 262, 264, 276, 289, 290, 301, 302, 304, 307, 313
Offset: 1
Keywords
Links
- Paolo Xausa, Table of n, a(n) for n = 1..1000
Programs
-
Mathematica
(* A377091list is defined at A377091 *) Flatten[Position[Map[Length, Most[Split[A377091list[1500], Abs[#2 - #1] == 1 &]]], 1]] (* Paolo Xausa, Jan 20 2025 *)