A104128 a(n) = p + p^(p+1), where p = prime(n).

10, 84, 15630, 5764808, 3138428376732, 3937376385699302, 14063084452067724991026, 37589973457545958193355620, 480250763996501976790165756943064, 74462898441675122902293018227199467668020630, 529144398052420314716929933900838757437386767392

Offset: 1

Author

Cino Hilliard, Mar 06 2005

Keywords

• easy
• nonn

Comments

Sum of reciprocals rapidly converges to 0.11196891489794721930017828981362..

Links

• Ray Chandler, Table of n, a(n) for n = 1..76

Programs

Mathematica

Table[p + p^(p+1), {p, Prime[Range[12]]}] (* Robert G. Wilson v, Feb 27 2012 *)

Maxima

A104128(n) := block(
        return(A000040(n)^(1+A000040(n))+A000040(n))
)$ /* R. J. Mathar, Feb 27 2012 */

PARI

A104128(n)=(n=prime(n))+n^(n+1) \\ M. F. Hasler, Feb 26 2012

Formula

a(n) = A000040(n) + A104126(n).

Extensions

Definition corrected and incorrect program removed by R. J. Mathar, Feb 27 2012

More terms from Harvey P. Dale, Feb 27 2012