OFFSET
1,1
COMMENTS
a(n) is divisible by n for every n.
MATHEMATICA
a = {2}; For[n = 1, n < 100, n++, i = 1; While[Not[Mod[a[[ -1]] + Prime[PrimePi[a[[ -1]]] + i], n] == 0], i++ ]; AppendTo[a, Prime[PrimePi[ a[[ -1]]] + i]]]; c = {}; For[b = 1, b < Length[a], b++, AppendTo[c, a[[b]] + a[[b + 1]]]]; c (* Stefan Steinerberger, Oct 17 2007 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Leroy Quet, Oct 14 2007
EXTENSIONS
More terms from Stefan Steinerberger, Oct 17 2007
STATUS
approved