OFFSET
1,1
COMMENTS
MATHEMATICA
amp[n_]:=Module[{prs=Prime[Range[n]], k=Prime[n]+1}, While[!IntegerQ[ Mean[ Join[ prs, {k}]]], k++]; Mean[Join[prs, {k}]]]; Array[amp, 70] (* Harvey P. Dale, Sep 02 2017 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Reinhard Zumkeller, Nov 03 2004
STATUS
approved