OFFSET
1,2
COMMENTS
Also, row sums of triangle in A154722. - Omar E. Pol, Jan 16 2009
FORMULA
a(n) = A154784(n) + n.
MAPLE
isA008578 := proc(n) RETURN(n=1 or isprime(n)) ; end: A154783 := proc(n) local a, d; a := n ; for d from 1 to n-1 do if isA008578(n-d) and isA008578(n+d) then a := a+2*n; fi; od: a ; end: for n from 1 to 80 do printf("%d, ", A154783(n)) ; od: # R. J. Mathar, Jan 18 2009
CROSSREFS
KEYWORD
easy,nonn
AUTHOR
Omar E. Pol, Jan 15 2009
EXTENSIONS
Extended by R. J. Mathar, Jan 18 2009
STATUS
approved