A077040 -id:A077040 - cp's OEIS frontend

A077039 Partial sums of A073579.

0, -3, 2, -5, -16, -3, 14, -5, -28, 1, -30, 7, 48, 5, -42, 11, -48, 13, -54, -125, -52, -131, -214, -125, -28, 73, -30, -137, -28, 85, -42, -173, -36, -175, -26, -177, -20, -183, -350, -177, -356, -175, -366, -173, 24, -175, -386, -609, -836, -607, -374, -613, -372, -623

Offset: 1

Reinhard Zumkeller, Oct 21 2002

			a(5) = 2*0+3*(-1)+5*1+7*(-1)+11*(-1) = 0-3+5-7-11 = -16.

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

Cf. A007504, A077040, A077041.

a077039 n = a077039_list !! (n-1)
a077039_list = scanl1 (+) a073579_list
-- Reinhard Zumkeller, Feb 28 2012

Accumulate[Join[{0},If[Mod[#,4]==1,#,-#]&/@Prime[Range[2,60]]]] (* Harvey P. Dale, Feb 27 2012 *)

a(n) = -Sum_{k=2..n} A000040(k)*i^(A000040(k)+1) where i is the imaginary unit. - Anthony Browne, May 17 2016

A077041 Primes p such that abs(A077039(A049084(p))) > p.

Original entry on oeis.org

11, 23, 41, 71, 79, 83, 89, 107, 131, 139, 151, 163, 167, 173, 179, 191, 211, 223, 227, 229, 233, 239, 241, 251, 257, 263, 269, 271, 277, 283, 307, 311, 313, 331, 347, 367, 379, 383, 389, 409, 421, 433, 457, 461, 463, 487, 491, 499, 503, 509, 521, 523, 541

Offset: 1

Reinhard Zumkeller, Oct 21 2002

nonn

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

Cf. A077040, A073579, A007504, A000040.

import Data.List (findIndices)
a077041 n = a077041_list !! (n-1)
a077041_list = map (a000040 . (+ 1)) $ findIndices (> 0) $
   zipWith (\s p -> abs s - p) a077039_list a000040_list
-- Reinhard Zumkeller, Feb 28 2012

cp's OEIS Frontend

A077039 Partial sums of A073579.

Views

Author

Keywords

Examples

Links

Crossrefs

Programs

Haskell

Mathematica

Formula