OFFSET
2,1
COMMENTS
The sequence is non-monotonic: a(6)<a(5), a(12)<a(11), a(19)<a(18).
LINKS
Donovan Johnson, Table of n, a(n) for n = 2..300
EXAMPLE
a(3)=12 because 12=(11+13)/2 and 12=2*2*3 has 3 prime factors.
MATHEMATICA
Flatten[With[{m=Mean/@Partition[Prime[Range[2, 370000]], 2, 1]}, Table[ Select[ m, PrimeOmega[#]==n&, 1], {n, 2, 20}]]] (* To generate 30 rather than 20 terms of the sequence, change 370000 to 458000000 and 20 to 30. *) (* Harvey P. Dale, Jun 22 2013 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Zak Seidov, Feb 29 2004
EXTENSIONS
Edited by Don Reble, Mar 17 2007
STATUS
approved