OFFSET
0,2
LINKS
Paolo Xausa, Table of n, a(n) for n = 0..10000
MATHEMATICA
Join[{0, 2}, Most[#] + Differences[#]/2] & [Prime[Range[2, 100]]] (* Paolo Xausa, Jun 17 2024 *)
CROSSREFS
KEYWORD
easy,nonn
AUTHOR
Omar E. Pol, Jul 16 2009
EXTENSIONS
Edited by Omar E. Pol, Jul 18 2009
STATUS
approved