A279340 First differences of A055938.

3, 1, 3, 3, 1, 1, 3, 3, 1, 3, 3, 1, 1, 1, 3, 3, 1, 3, 3, 1, 1, 3, 3, 1, 3, 3, 1, 1, 1, 1, 3, 3, 1, 3, 3, 1, 1, 3, 3, 1, 3, 3, 1, 1, 1, 3, 3, 1, 3, 3, 1, 1, 3, 3, 1, 3, 3, 1, 1, 1, 1, 1, 3, 3, 1, 3, 3, 1, 1, 3, 3, 1, 3, 3, 1, 1, 1, 3, 3, 1, 3, 3, 1, 1, 3, 3, 1, 3, 3, 1, 1, 1, 1, 3, 3, 1, 3, 3, 1, 1, 3, 3, 1, 3, 3, 1, 1, 1, 3, 3, 1, 3, 3, 1, 1, 3, 3, 1, 3, 3

Offset

1,1

Links

Antti Karttunen, Table of n, a(n) for n = 1..8191

Formula

a(n) = A055938(1+n) - A055938(n).

Mathematica

Differences@ Complement[Range@ Last@ #, #] &@ Table[IntegerExponent[(2 n)!, 2], {n, 0, 120}] (* Michael De Vlieger, Mar 15 2017, after Jean-François Alcover at A055938 *)

Prog

(Scheme) (define (A279340 n) (- (A055938 (+ 1 n)) (A055938 n)))

Crossrefs

Cf. A007814, A055938, A079559, A279353.

Sequence in context: A124814 A122567 A122431 * A089607 A216637 A358643

Adjacent sequences: A279337 A279338 A279339 * A279341 A279342 A279343

Keyword

nonn

Author

Antti Karttunen, Mar 15 2017

Status

approved