login
A100091
Arithmetic mean of the first n primes and a minimal number greater than prime(n) such that an integer results.
1
3, 3, 4, 5, 7, 8, 10, 11, 13, 15, 16, 19, 20, 22, 24, 26, 28, 30, 32, 34, 36, 38, 40, 43, 45, 47, 49, 51, 53, 56, 58, 61, 63, 65, 68, 70, 73, 75, 78, 80, 83, 85, 88, 90, 92, 95, 97, 100, 103, 105, 108, 110, 113, 116, 118, 121, 124, 126, 129, 131, 134, 137, 139, 142, 145
OFFSET
1,1
COMMENTS
A100090(n) = the minimal number mentioned in the definition: a(n)=(A100090(n)+A007504(n))/(n+1).
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
Sequence in context: A347286 A144489 A239640 * A239483 A104806 A241442
KEYWORD
nonn
AUTHOR
Reinhard Zumkeller, Nov 03 2004
STATUS
approved