A083725 a(n) = n * [1 + sum(k=1 to n) prime(k)].

0, 3, 12, 33, 72, 145, 252, 413, 624, 909, 1300, 1771, 2376, 3107, 3948, 4935, 6112, 7497, 9036, 10811, 12800, 14973, 17424, 20125, 23136, 26525, 30212, 34155, 38416, 42949, 47820, 53351, 59264, 65637, 72352, 79695, 87408, 95645, 104424, 113685, 123520, 133947

Offset

0,2

Links

Harvey P. Dale, Table of n, a(n) for n = 0..1000

Mathematica

Module[{nn=50, prs}, prs=Accumulate[Prime[Range[nn]]]+1; Join[{0}, Times@@@ Thread[{Range[nn], prs}]]] (* Harvey P. Dale, Dec 30 2014 *)

Crossrefs

Sequence in context: A268768 A174963 A054602 * A192972 A159228 A054610

Adjacent sequences: A083722 A083723 A083724 * A083726 A083727 A083728

Keyword

nonn

Author

N. J. A. Sloane, Jun 16 2003

Status

approved