OFFSET
1,2
MAPLE
A036261 := proc(n, k) option remember ; if k = n then ithprime(n+1)-ithprime(n) ; else abs(procname(n, k+1)-procname(n-1, k)) ; end if; end proc: A173815 := proc(n) add(A036261(n, k), k=1..n) ; end proc: seq(A173815(n), n=1..90) ; # R. J. Mathar, Mar 01 2010
CROSSREFS
KEYWORD
nonn
AUTHOR
Juri-Stepan Gerasimov, Feb 25 2010
EXTENSIONS
a(10), a(22) etc. corrected and sequence extended by R. J. Mathar, Mar 01 2010
STATUS
approved