OFFSET
1,1
LINKS
Harvey P. Dale, Table of n, a(n) for n = 1..1000
EXAMPLE
a(4) = 11*3 + 7*5 + 5*7 + 3*11 = 136.
MATHEMATICA
Table[With[{c=Prime[Range[2, n]]}, ListConvolve[c, c]], {n, 2, 40}]//Flatten (* Harvey P. Dale, Apr 25 2016 *)
PROG
(PARI) conv(n)=local(v, s); v=primes(n+1); s=0; for(i=2, length(v), s+=v[i]*v[length(v)-i+2]); s
for(n=1, 40, print1(conv(n)", "))
(Python)
from numpy import convolve
from sympy import prime, primerange
def aupton(terms):
p = list(primerange(3, prime(terms+1)+1))
return list(convolve(p, p))[:terms]
print(aupton(40)) # Michael S. Branicky, Sep 30 2021
CROSSREFS
KEYWORD
nonn
AUTHOR
Jon Perry, Jun 23 2003
STATUS
approved