

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

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: A240207 A144489 A239640 * A239483 A104806 A241442
Adjacent sequences: A100088 A100089 A100090 * A100092 A100093 A100094


KEYWORD

nonn


AUTHOR

Reinhard Zumkeller, Nov 03 2004


STATUS

approved



