OFFSET
1
COMMENTS
a(n) = 0 for n=1, 23, 53, 853, ... see A045345.
It is conjectured that there are infinitely many zeros, but that their density is zero.
LINKS
Antti Karttunen, Table of n, a(n) for n = 1..12000
Javier Cilleruelo and Florian Luca, On the sum of the first n primes, Q. J. Math. 59:4 (2008), 14 pp.
MATHEMATICA
Table[Ceiling[(Plus@@Prime[Range[n]])/n]-Floor[(Plus@@Prime[Range[n]])/n], {n, 100}]
PROG
(PARI)
up_to = 105
v007504 = vector(up_to, i, prime(i));
for(i=2, up_to, v007504[i] = v007504[i-1]+v007504[i]); \\ Taking partial sums of primes here.
A007504(n) = v007504[n];
(Scheme) (define (A267084 n) (if (zero? (modulo (A007504 n) n)) 0 1)) ;; Antti Karttunen, Sep 24 2017
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Ctibor O. Zizka, Jan 10 2016
EXTENSIONS
More terms and the second description added to the name by Antti Karttunen, Sep 24 2017
STATUS
approved