A084115 A084113(n) minus A084114(n).

0, 1, 1, 2, 1, 1, 1, 1, 2, 1, 1, 3, 1, 1, 1, 2, 1, 3, 1, 3, 1, 1, 1, 3, 2, 1, 1, 3, 1, 3, 1, 3, 1, 1, 1, 4, 1, 1, 1, 3, 1, 3, 1, 3, 3, 1, 1, 3, 2, 3, 1, 3, 1, 3, 1, 3, 1, 1, 1, 3, 1, 1, 3, 2, 1, 3, 1, 3, 1, 3, 1, 3, 1, 1, 3, 3, 1, 3, 1, 3, 2, 1, 1, 3, 1, 1, 1, 3, 1, 3, 1, 3, 1, 1, 1, 3, 1, 3, 3, 4, 1, 3, 1, 3, 3

Offset: 1

Author

Reinhard Zumkeller, May 12 2003

Keywords

• nonn

Comments

a(n) = A084113(n) - A084114(n) = 2*A084113(n) - A032741(n) = A032741(n) - 2*A084114(n);

a(A084116(n)) = 1.

Links

• Reinhard Zumkeller, Table of n, a(n) for n = 1..10000

Crossrefs

Cf. A066423, A084116.

Cf. A084110, A084113, A084114.

Programs

Haskell

a084115 n = a084113 n - a084114 n -- Reinhard Zumkeller, Jul 31 2014

Extensions

Definition fixed by Reinhard Zumkeller, Jul 31 2014