1,5
0 occurs only once in this sequence.
Harvey P. Dale, Table of n, a(n) for n = 1..1000
If[PrimeQ[#], #, NextPrime[#]]-#&/@Accumulate[Range[100]] (* Harvey P. Dale, Nov 21 2012 *)
(PARI) for(n=1, 100, a=n*(n+1)/2:print1(nextprime(a)-a", "))
Cf. A075403.
Sequence in context: A240168 A199204 A262750 * A276696 A220777 A088855
Adjacent sequences: A075399 A075400 A075401 * A075403 A075404 A075405
nonn
Amarnath Murthy, Sep 23 2002
Corrected and extended by Ralf Stephan, Mar 19 2003
approved