OFFSET
1,2
COMMENTS
Of the first 511 terms of A059876, 278 are primes.
MATHEMATICA
a[n_] := With[{s = Floor[Log[2, n]]}, (-1)^(n+1) + Sum[(-1)^(Floor[n/2^i] + 1)*Prime[i], {i, 1, s}] + If[1 == n, 1, Mod[s + 1, 2]*Prime[s]]];
A059877 = Position[Array[a, 120], p_ /; PrimeQ[Abs[p]]] // Flatten (* Jean-François Alcover, Mar 07 2016 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Antti Karttunen, Feb 05 2001
STATUS
approved