login
a(n) starts new run of consecutive values in A055938.
3

%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