A104127 (1+prime(n))^prime(n).

9, 64, 7776, 2097152, 743008370688, 793714773254144, 2185911559738696531968, 5242880000000000000000000, 55572324035428505185378394701824, 6863037736488300000000000000000000000000000

Offset: 1

Author

Cino Hilliard, Mar 06 2005

Keywords

• easy
• nonn

Comments

Sum of reciprocals rapidly converges to 0.1268651887726617214821302614..

Programs

Mathematica

(1+#)^#&/@Prime[Range[20]] (* Harvey P. Dale, Nov 19 2015 *)

Maxima

A104127(n) := block(
        return((1+A000040(n))^A000040(n))
  )$
  for n : 1 thru 20 do printf(true,"~d,",A104127(n)) ; /* R. J. Mathar, Feb 27 2012 */

PARI

ptopp1(n) = { local(x,z,sr=0); forprime(x=1,n, z=(x+1)^x; sr+=1./z; print1(z","); ); print(); print(sr) }

Extensions

Definition (which equaled A078422) corrected and dummy variables in PARI program removed by R. J. Mathar, Oct 23 2009