OFFSET
1,2
COMMENTS
Does every number appear?
A basic sequence related to additive structure of primes.
LINKS
Donovan Johnson, Table of n, a(n) for n = 1..10000
MAPLE
with(numtheory); M:=500; p0:=2; a[1]:=1; for n from 2 to M do p0:=p0+ithprime(n); t1:=divisors(p0); t2:=nops(t1); for i from 1 to t2 do d:=t1[i]; hit:=0; for j from 1 to n-1 do if a[j]=d then hit:=1; break; fi; od: if hit = 0 then a[n]:=d; break; fi; od: od: s1:=[seq(a[n], n=1..M)];
MATHEMATICA
Fold[Function[{l, d}, Append[l, SelectFirst[d, FreeQ[l, #] &]]], {}, Divisors@Accumulate@Prime@Range[100]] (* Virgile Andreani, Jul 11 2016 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
N. J. A. Sloane, Nov 03 2005
STATUS
approved