OFFSET
0,1
COMMENTS
Bisection of A174221.
LINKS
Michael De Vlieger, Table of n, a(n) for n = 0..10000
MATHEMATICA
Array[Total@ Prepend[NextPrime[#, {1, 2, 3}], #] &[2 # + 1] &, 74, 0] (* Michael De Vlieger, Oct 25 2017 *)
PROG
(PARI) A174223(n)=sum(c=1, 3, n=nextprime(n+1), n=2*n+1) \\ M. F. Hasler, Oct 25 2017
(Python)
from sympy import nextprime
def a(n):
base = 2*n + 1
p1 = nextprime(base)
p2 = nextprime(p1)
p3 = nextprime(p2)
return base + p1 + p2 + p3
print([a(n) for n in range(74)]) # Michael S. Branicky, Nov 26 2021
CROSSREFS
KEYWORD
nonn
AUTHOR
N. J. A. Sloane, Nov 26 2010
STATUS
approved