OFFSET
1,1
COMMENTS
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
KEYWORD
nonn
AUTHOR
Armand Turpel armandt(AT)unforgettable.com
STATUS
approved