The OEIS Foundation is supported by donations from users of the OEIS and by a grant from the Simons Foundation.

 Hints (Greetings from The On-Line Encyclopedia of Integer Sequences!)
 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 (list; graph; refs; listen; history; text; internal format)
 OFFSET 1,1 COMMENTS A100090(n) = the minimal number mentioned in the definition: a(n)=(A100090(n)+A007504(n))/(n+1). LINKS 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: A240207 A144489 A239640 * A239483 A104806 A241442 Adjacent sequences:  A100088 A100089 A100090 * A100092 A100093 A100094 KEYWORD nonn AUTHOR Reinhard Zumkeller, Nov 03 2004 STATUS approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recent
The OEIS Community | Maintained by The OEIS Foundation Inc.

Last modified September 28 17:43 EDT 2020. Contains 337393 sequences. (Running on oeis4.)