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

2, 5, 9, 12, 17, 20, 24, 27, 33, 36, 40, 43, 48, 51, 55, 58, 65, 68, 72, 75, 80, 83, 87, 90, 96, 99, 103, 106, 111, 114, 118, 121, 129, 132, 136, 139, 144, 147, 151, 154, 160, 163, 167, 170, 175, 178, 182, 185, 192, 195, 199, 202, 207, 210, 214, 217, 223, 226, 230

Offset

1,1

Comments

Shape sequence for A055938 is A001511

Links

Table of n, a(n) for n=1..59.

Formula

a(n) = 4n - 2 - A000120(n-1). - Ralf Stephan, Feb 23 2004

Example

a(9) is 33 because A055938 begins
  2
  5 6
  9
  12 13 14
  17
  20 21
  24
  27 28 29 30
  33
  ...

Mathematica

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 *)

Prog

(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

Crossrefs

Cf. A000120, A001511, A005187, A055938.

Sequence in context: A211274 A276217 A354835 * A056549 A034806 A226822

Adjacent sequences: A086340 A086341 A086342 * A086344 A086345 A086346

Keyword

easy,nonn

Author

Alford Arnold, Sep 03 2003

Extensions

More terms from David Wasserman, Mar 03 2005

Status

approved