OFFSET
0,3
LINKS
T. D. Noe, Table of n, a(n) for n = 0..1000
FORMULA
a(n) = a(n-1) + n*(A010051(n)*(n+1)-1). - Reinhard Zumkeller, Aug 13 2013
MATHEMATICA
nxt[{n_, a_}]:={n+1, If[PrimeQ[n+1], a+(n+1)^2, a-(n+1)]}; Transpose[ NestList[ nxt, {0, 0}, 50]][[2]] (* Harvey P. Dale, Dec 12 2012 *)
PROG
(Haskell)
a051353 n = a051353_list !! n
a051353_list = 0 : zipWith (+) a051353_list
(zipWith (\chi x -> x * (chi * (x + 1) - 1)) a010051_list [1..])
-- Reinhard Zumkeller, Aug 13 2013
CROSSREFS
KEYWORD
sign,easy,nice
AUTHOR
Armand Turpel armandt(AT)unforgettable.com
STATUS
approved