A293665 a(0) = 1; a(n) = -Sum_{d|n} a(n-d).

1, -1, 0, -1, 0, -1, 1, -2, 0, -2, 2, -3, 1, -2, 2, -6, 2, -3, 7, -8, 2, -12, 12, -13, 0, -3, 4, -12, 17, -18, 19, -20, -19, -13, 34, -71, 54, -55, 8, -67, 73, -74, 79, -80, -72, -154, 238, -239, 39, -119, 163, -237, 97, -98, 310, -402, -22, -297, 336, -337, 271, -272, 20, -659, 369, -738

Offset

0,8

Links

Table of n, a(n) for n=0..65.

Ilya Gutkovskiy, Extended graphical example

Formula

a(p) = -a(p-1) - 1, for p is a prime.

Mathematica

a[n_] := a[n] = -Sum[a[n - d], {d, Divisors[n]}]; a[0] = 1; Table[a[n], {n, 0, 65}]

Crossrefs

Cf. A067951, A281487, A281488.

Sequence in context: A352965 A103615 A308167 * A159632 A164733 A288311

Adjacent sequences: A293662 A293663 A293664 * A293666 A293667 A293668

Keyword

sign

Author

Ilya Gutkovskiy, Oct 14 2017

Status

approved