A033286 a(n) = n * prime(n).
2, 6, 15, 28, 55, 78, 119, 152, 207, 290, 341, 444, 533, 602, 705, 848, 1003, 1098, 1273, 1420, 1533, 1738, 1909, 2136, 2425, 2626, 2781, 2996, 3161, 3390, 3937, 4192, 4521, 4726, 5215, 5436, 5809, 6194, 6513, 6920, 7339, 7602, 8213, 8492, 8865, 9154, 9917
Offset: 1
Links
- Reinhard Zumkeller, Table of n, a(n) for n = 1..10000
- Albert Frank, International Contest Of Logical Sequences, 2002 - 2003. Item 1.
- Albert Frank, Solutions of International Contest Of Logical Sequences, 2002 - 2003.
Crossrefs
Programs
-
Haskell
a033286 n = a000040 n * n -- Reinhard Zumkeller, Jul 24 2013
-
Magma
[ n*NthPrime(n): n in [1..47] ]; // Klaus Brockhaus, Sep 09 2009
-
Maple
A033286 := proc(n) n*ithprime(n) ; end proc: seq(A033286(n),n=1..20) ; # R. J. Mathar, Mar 21 2011
-
Mathematica
Table[Prime[n]*n, {n, 38}] (* Alonso del Arte *)
-
MuPAD
ithprime(i)*i $ i = 1..47 // Zerinvary Lajos, Feb 26 2007
-
PARI
a(n)=n*prime(n) \\ Charles R Greathouse IV, Jul 01 2013
Formula
Sum_{n>=1} 1/a(n) = A124012. - Amiram Eldar, Oct 15 2020
Extensions
Correction for change of offset in A158611 and A008578 in Aug 2009 from Jaroslav Krizek, Jan 27 2010
Comments