A099909 (prime(n)*(prime(n+1)-1) + (prime(n)-1)*prime(n+1)) / 2.

11, 29, 68, 131, 206, 305, 416, 641, 869, 1113, 1478, 1721, 1976, 2441, 3071, 3539, 4023, 4688, 5111, 5691, 6476, 7301, 8540, 9698, 10301, 10916, 11555, 12206, 14231, 16508, 17813, 18905, 20567, 22349, 23553, 25431, 27056, 28721, 30791, 32219

Offset

2,1

Comments

See A099911 for primes; A099910(n)=A001222(a(n)).

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

Sequence in context: A043919 A120946 A216296 * A106881 A239734 A106880

Adjacent sequences: A099906 A099907 A099908 * A099910 A099911 A099912

Keyword

nonn

Author

Reinhard Zumkeller, Oct 29 2004

Status

approved