OFFSET
2,1
COMMENTS
Sum of n-th row in triangle A171637.
LINKS
Reinhard Zumkeller, Table of n, a(n) for n = 2..10000
FORMULA
a(n) mod 2 = A010051(n).
a(n) = n*A035026(n). - Robert G. Wilson v, Apr 28 2018
PROG
(Haskell)
a238778 n = sum $ filter ((== 1) . a010051') $
map (2 * n -) $ takeWhile (<= 2 * n) a000040_list
(PARI) a(n) = my(s=0); forprime(p=2, 2*n, if(isprime(2*n-p), s+=p)); s; \\ Michel Marcus, Jan 24 2022
CROSSREFS
KEYWORD
nonn
AUTHOR
Reinhard Zumkeller, Mar 06 2014
STATUS
approved