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

a(n) = 2*A079559(n) + 1 (using Vladeta Jovovic's comment in A055938). - Kevin Ryde, Feb 07 2026

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)))
(PARI) \\ See links in A079559.

Crossrefs

Cf. A007814, A055938, A279353.

Cf. A079559 (as 1,0), A308187 (as 0,1), A308188 (as 1,2).

Sequence in context: A124814 A122567 A122431 * A089607 A216637 A358643

Adjacent sequences: A279337 A279338 A279339 * A279341 A279342 A279343

Keyword

nonn,easy

Author

Antti Karttunen, Mar 15 2017

Status

approved