|
|
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
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
2,1
|
|
COMMENTS
|
|
|
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)
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|