OFFSET
1,1
COMMENTS
MATHEMATICA
f[n_] := Block[{k = 1, t}, While[t = Table[Prime[i], {i, k, k + n - 1}]; Mod[Plus @@ t, n] > 0, k++ ]; t]; Total /@ Table[f[n], {n, 45}] (* Ray Chandler, Oct 09 2006 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Amarnath Murthy, Nov 06 2002
EXTENSIONS
More terms from Sascha Kurz, Jan 30 2003
STATUS
approved