|
%I #28 Sep 08 2022 08:45:54
%S 10,27,100,245,847,1352,2890,3971,6877,13456,16337,27380,36982,42527,
%T 55225,78652,107911,119072,157115,186517,202502,255881,296227,364366,
%U 470450,530452,562277,629695,665336,740602,1048385,1149787,1313830
%N a(n) = p^2*(p + 3)/2, where p = prime(n).
%C Old name was "The first a(n) numbers killed in a Sieve of Eratosthenes".
%H Bruno Berselli, <a href="/A179546/b179546.txt">Table of n, a(n) for n = 1..1000</a>
%F p^2*(p+3)/2 as p runs through the primes. [_R. J. Mathar_, Aug 05 2010]
%e 2: 2*2 + 2*3 = 2*(3*4/2-1) = 10;
%e 3: 3*2 + 3*3 + 3*4 = 3*(4*5/2-1) = 27;
%e 5: 5*2 + 5*3 + 5*4 + 5*5 + 5*6 = 5*(6*7/2-1) = 100;
%e 7: 7*2 + 7*3 + 7*4 + 7*5 + 7*6 + 7*7 + 7*8 = 7*(8*9/2-1) = 245; etc.
%t Table[Prime[n]^2 (Prime[n] + 3)/2, {n, 40}] (* _Bruno Berselli_, Feb 03 2015 *)
%t #^2 (#+3)/2&/@Prime[Range[40]] (* _Harvey P. Dale_, Feb 23 2018 *)
%o (PARI) vector(50, n, p=prime(n); p^2*(p+3)/2) \\ _Michel Marcus_, Feb 03 2015
%o (Magma) [p^2*(p+3)/2: p in PrimesUpTo(200)]; // _Bruno Berselli_, Feb 03 2015
%Y Cf. A000040.
%K nonn
%O 1,1
%A _Odimar Fabeny_, Jul 19 2010
%E More terms from _R. J. Mathar_, Aug 05 2010
%E Name and example rephrased and offset changed by Editors of the OEIS, Feb 03 2015
|
