login
A037166
Prime(n)*prime(n+1)-prime(n).
1
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
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
KEYWORD
nonn
AUTHOR
Armand Turpel armandt(AT)unforgettable.com
STATUS
approved