%I #8 Nov 21 2013 12:46:35
%S 4,12,30,70,132,208,306,418,644,870,1116,1480,1722,1978,2444,3074,
%T 3540,4026,4690,5112,5694,6478,7304,8544,9700,10302,10918,11556,12208,
%U 14238,16510,17816,18906,20572,22350,23556,25434,27058,28724,30794,32220
%N Prime(n)*prime(n+1)-prime(n).
%C a(n) = A000040(n) * A006093(n+1). - _Reinhard Zumkeller_, Nov 10 2013
%H Reinhard Zumkeller, <a href="/A037166/b037166.txt">Table of n, a(n) for n = 1..10000</a>
%t Times@@#-#[[1]]&/@Partition[Prime[Range[50]],2,1] (* _Harvey P. Dale_, Apr 15 2012 *)
%o (Haskell)
%o a037166 n = a037166_list !! (n-1)
%o a037166_list = zipWith (*) a000040_list $
%o map (subtract 1) $ tail a000040_list
%o -- _Reinhard Zumkeller_, Nov 10 2013
%K nonn
%O 1,1
%A Armand Turpel armandt(AT)unforgettable.com
|