OFFSET
1,1
COMMENTS
MATHEMATICA
p=1; Table[p=NextPrime[p]; q=NextPrime[p]; 1+p+q+p^2+p*q+p^2*q, {20}]
PROG
(PARI) p=1; for(n=1, 20, p=nextprime(p+1); q=nextprime(p+1); print1(sigma(p^2*q)", "))
CROSSREFS
KEYWORD
nonn
AUTHOR
Zak Seidov, Feb 12 2016
STATUS
approved