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

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

Offset

1,1

Comments

Sum of reciprocals rapidly converges to 0.11196891489794721930017828981362..

Links

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

Formula

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

Mathematica

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

Prog

(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

Crossrefs

Sequence in context: A321295 A350903 A318793 * A345895 A014341 A323970

Adjacent sequences: A104125 A104126 A104127 * A104129 A104130 A104131

Keyword

easy,nonn

Author

Cino Hilliard, Mar 06 2005

Extensions

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

More terms from Harvey P. Dale, Feb 27 2012

Status

approved