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
Examples
a(9) is 33 because A055938 begins 2 5 6 9 12 13 14 17 20 21 24 27 28 29 30 33 ...
Programs
-
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 *) -
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
Formula
a(n) = 4n - 2 - A000120(n-1). - Ralf Stephan, Feb 23 2004
Extensions
More terms from David Wasserman, Mar 03 2005
Comments