OFFSET
1,1
MATHEMATICA
<<NumberTheory`NumberTheoryFunctions`
k=101; a=p=2; s={}; Do[p=NextPrime[p]; If[Mod[a+p, k]==0, AppendTo[s, (a+p)/k]; a=p], {10000}]; s
CROSSREFS
KEYWORD
nonn
AUTHOR
Zak Seidov, May 28 2010
STATUS
approved