OFFSET
0,8
LINKS
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
KEYWORD
sign
AUTHOR
Ilya Gutkovskiy, Oct 14 2017
STATUS
approved