OFFSET
2,1
LINKS
Harvey P. Dale, Table of n, a(n) for n = 2..1000
MATHEMATICA
pn[{a_, b_}]:=(a(b-1)+b(a-1))/2; pn/@Partition[Prime[Range[2, 50]], 2, 1] (* Harvey P. Dale, Nov 08 2013 *)
PROG
(Haskell)
a099909 n = a099909_list !! (n-2)
a099909_list = map (flip div 2) $ tail $ zipWith (+)
(zipWith (*) a000040_list $ map (subtract 1) $ tail a000040_list)
(zipWith (*) (map (subtract 1) a000040_list) $ tail a000040_list)
-- Reinhard Zumkeller, Nov 10 2013
CROSSREFS
KEYWORD
nonn
AUTHOR
Reinhard Zumkeller, Oct 29 2004
STATUS
approved