OFFSET
1,1
LINKS
Charles R Greathouse IV, Table of n, a(n) for n = 1..10000
MATHEMATICA
Table[(Prime[n] + 1)*(Prime[n + 1] + 1)/4, {n, 1, 50}] (* G. C. Greubel, Apr 25 2017 *)
PROG
(PARI) a(n)=(prime(n)+1)*(prime(n+1)+1)/4 \\ Charles R Greathouse IV, Aug 21 2011
(Haskell)
a079079 n = a079079_list !! (n-1)
a079079_list = map (`div` 4) $
zipWith (*) a008864_list $ tail a008864_list
-- Reinhard Zumkeller, Oct 08 2012
(Python)
from sympy import prime
def a(n): return (prime(n) + 1)*(prime(n + 1) + 1)/4 # Indranil Ghosh, Apr 26 2017
CROSSREFS
KEYWORD
nonn
AUTHOR
Reinhard Zumkeller, Dec 22 2002
STATUS
approved