A323476 Positions of 3's in A306211.
37, 52, 58, 76, 82, 91, 115, 121, 130, 145, 177, 183, 192, 207, 230, 257, 275, 281, 290, 305, 328, 355, 364, 391, 404, 410, 416, 431, 437, 446, 461, 484, 511, 520, 547, 560, 566, 572, 578, 605, 618, 624, 630, 640, 646, 654, 678, 684, 693, 708, 731, 758, 767
Offset: 1
Keywords
Links
- Rémy Sigrist, Table of n, a(n) for n = 1..25000
- Rémy Sigrist, C program for A323476
Programs
-
C
See Links section.
-
Mathematica
seq[n_] := seq[n] = If[n==1, {1}, Join[seq[n-1], Length /@ Split[seq[n-1]]] ]; Position[seq[26], 3] // Flatten (* Jean-François Alcover, Jul 19 2022 *)