OFFSET
1,1
COMMENTS
This sequence assumes prime(0) = 1.
LINKS
Harvey P. Dale, Table of n, a(n) for n = 1..1000
MATHEMATICA
f[n_]:=Prime[n]*Prime[n+1]+1; Table[f[n], {n, 5!}] (* Vladimir Joseph Stephan Orlovsky, Feb 10 2010 *)
Join[{3}, Times@@@Partition[Prime[Range[40]], 2, 1]+1] (* Harvey P. Dale, Oct 02 2012 *)
PROG
(Magma) [&+[(NthPrime(n-1)*NthPrime(n)+1)]: n in [1..1000]]; // Vincenzo Librandi, Dec 23 2010
(Haskell)
a023523 n = a023523_list !! (n-1)
a023523_list = map (+ 1) $ zipWith (*) a000040_list a008578_list
-- Reinhard Zumkeller, Oct 09 2012
CROSSREFS
KEYWORD
nonn
AUTHOR
STATUS
approved