OFFSET
0,2
COMMENTS
LINKS
Harvey P. Dale, Table of n, a(n) for n = 0..1000
FORMULA
a(n) = A001043(n-1)-1, n>1. - R. J. Mathar, Jun 04 2020
MATHEMATICA
nxt[{a_, b_}]:={a+1, Prime[a+1]+Prime[a]-1}; Join[{1}, Transpose[ NestList[ nxt, {1, 2}, 60]][[2]]] (* or *) Join[{1, 2}, Total/@Partition[Prime[ Range[ 60]], 2, 1]-1] (* Harvey P. Dale, Jun 12 2012 *)
PROG
(PARI) a(n)=if(n<1, 1, if(n==1, 2, prime(n)+prime(n-1)-1)) \\ Lambert Klasen, Jan 14 2005; corrected by Michel Marcus, Nov 05 2023
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Reinhard Zumkeller, Oct 04 2002
EXTENSIONS
Simpler description from Vladeta Jovovic, Mar 29 2003
More terms from Lambert Klasen (lambert.klasen(AT)gmx.de), Jan 14 2005
STATUS
approved