login
A099909
(prime(n)*(prime(n+1)-1) + (prime(n)-1)*prime(n+1)) / 2.
3
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
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
KEYWORD
nonn
AUTHOR
Reinhard Zumkeller, Oct 29 2004
STATUS
approved