|
|
A023523
|
|
a(n) = prime(n)*prime(n-1) + 1.
|
|
12
|
|
|
3, 7, 16, 36, 78, 144, 222, 324, 438, 668, 900, 1148, 1518, 1764, 2022, 2492, 3128, 3600, 4088, 4758, 5184, 5768, 6558, 7388, 8634, 9798, 10404, 11022, 11664, 12318, 14352, 16638, 17948, 19044, 20712, 22500, 23708, 25592, 27222, 28892
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
COMMENTS
|
This sequence assumes prime(0) = 1.
|
|
LINKS
|
|
|
MATHEMATICA
|
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
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|