A037166 Prime(n)*prime(n+1)-prime(n).

4, 12, 30, 70, 132, 208, 306, 418, 644, 870, 1116, 1480, 1722, 1978, 2444, 3074, 3540, 4026, 4690, 5112, 5694, 6478, 7304, 8544, 9700, 10302, 10918, 11556, 12208, 14238, 16510, 17816, 18906, 20572, 22350, 23556, 25434, 27058, 28724, 30794, 32220

Offset

1,1

Comments

a(n) = A000040(n) * A006093(n+1). - Reinhard Zumkeller, Nov 10 2013

Links

Reinhard Zumkeller, Table of n, a(n) for n = 1..10000

Mathematica

Times@@#-#[[1]]&/@Partition[Prime[Range[50]], 2, 1] (* Harvey P. Dale, Apr 15 2012 *)

Prog

(Haskell)
a037166 n = a037166_list !! (n-1)
a037166_list = zipWith (*) a000040_list $
                           map (subtract 1) $ tail a000040_list
-- Reinhard Zumkeller, Nov 10 2013

Crossrefs

Sequence in context: A097809 A272144 A036389 * A118892 A036388 A100691

Adjacent sequences: A037163 A037164 A037165 * A037167 A037168 A037169

Keyword

nonn

Author

Armand Turpel armandt(AT)unforgettable.com

Status

approved