OFFSET
1,1
FORMULA
a(n) = 4n - 2 - A000120(n-1). - Ralf Stephan, Feb 23 2004
EXAMPLE
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
KEYWORD
easy,nonn
AUTHOR
Alford Arnold, Sep 03 2003
EXTENSIONS
More terms from David Wasserman, Mar 03 2005
STATUS
approved