A100091 Arithmetic mean of the first n primes and a minimal number greater than prime(n) such that an integer results.

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).

Links

Table of n, a(n) for n=1..65.

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

Adjacent sequences: A100088 A100089 A100090 * A100092 A100093 A100094

Keyword

nonn

Author

Reinhard Zumkeller, Nov 03 2004

Status

approved