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

0, 1, 6, 18, 44, 90, 174, 294, 472, 702, 1010, 1430, 1932, 2574, 3346, 4230, 5264, 6494, 7938, 9538, 11380, 13440, 15686, 18216, 21000, 24100, 27586, 31374, 35420, 39788, 44430, 49414, 55072, 61116, 67626, 74480, 81972, 89836, 98230, 107172, 116600, 126608

Offset

0,3

Links

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

Mathematica

With[{nn=40}, Join[{0, 1}, Times@@@Thread[{Range[2, nn+1], Accumulate[ Prime[ Range[ nn]]]+ 1}]]] (* Harvey P. Dale, Mar 03 2016 *)

Crossrefs

Sequence in context: A011929 A070735 A136028 * A182706 A303649 A095170

Adjacent sequences: A083716 A083717 A083718 * A083720 A083721 A083722

Keyword

nonn

Author

N. J. A. Sloane, Jun 16 2003

Status

approved