|
Search: id:A090918
|
|
|
| A090918 |
|
Beginning with 3, least prime, greater than the previous term, such that the arithmetic mean of first n terms is a prime. |
|
+0
2
|
|
| 3, 7, 11, 23, 41, 53, 79, 127, 313, 353, 431, 443, 599, 863, 1049, 1669, 3643, 3919, 4177, 4657, 4861, 5261, 6449, 6737, 7057, 8821, 9013, 9337, 10513, 11161, 13309, 13693, 14449, 14537, 15137, 15377, 15439, 15991, 16231, 16607, 16889, 17489
(list; graph; listen)
|
|
|
OFFSET
|
1,1
|
|
|
PROGRAM
|
(PARI) {terms=100; A090918=A090919=vector(terms); A090918[1]=A090919[1]=3; s=0; for(k=2, terms, s=s+A090918[k-1]; p=A090918[k-1]+1; until(isprime(p) && (denominator((s+p)/k)==1) && isprime((s+p)/k), p++); A090918[k]=p; A090919[k]=(s+p)/k; print1(A090918[k], ", ") ); A090918}
|
|
CROSSREFS
|
Cf. A090940, A090941, A090919.
Sequence in context: A112715 A106935 A116362 this_sequence A139253 A116606 A139814
Adjacent sequences: A090915 A090916 A090917 this_sequence A090919 A090920 A090921
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
Amarnath Murthy (amarnath_murthy(AT)yahoo.com), Dec 16 2003
|
|
EXTENSIONS
|
Corrected and extended by Rick L. Shepherd (rshepherd2(AT)hotmail.com), Mar 08 2004
|
|
|
Search completed in 0.002 seconds
|
