%I #17 Sep 23 2023 03:13:58
%S 2,5,9,12,17,20,24,27,33,36,40,43,48,51,55,58,65,68,72,75,80,83,87,90,
%T 96,99,103,106,111,114,118,121,129,132,136,139,144,147,151,154,160,
%U 163,167,170,175,178,182,185,192,195,199,202,207,210,214,217,223,226,230
%N a(n) starts new run of consecutive values in A055938.
%C Shape sequence for A055938 is A001511
%F a(n) = 4n - 2 - A000120(n-1). - _Ralf Stephan_, Feb 23 2004
%e a(9) is 33 because A055938 begins
%e 2
%e 5 6
%e 9
%e 12 13 14
%e 17
%e 20 21
%e 24
%e 27 28 29 30
%e 33
%e ...
%t t = Table[IntegerExponent[(2n)!, 2], {n, 0, 200}]; A055938 = Complement[ Range[t // Last], t]; First /@ Split[A055938, #2 == #1 + 1&] (* _Jean-François Alcover_, Nov 15 2016 *)
%o (PARI) A = vector(160); A[1] = 1; for (n = 2, 160, A[n] = n + A[n\2]; if (A[n] != 1 + A[n - 1], print1(A[n - 1] + 1, ", "))); \\ _David Wasserman_, Mar 03 2005
%Y Cf. A000120, A001511, A005187, A055938.
%K easy,nonn
%O 1,1
%A _Alford Arnold_, Sep 03 2003
%E More terms from _David Wasserman_, Mar 03 2005