A128466 Primes of the form ((k+1)^k - 1)/k^2 = A060073(k+1).

2, 7, 311, 7563707819165039903

Offset

1,1

Comments

Corresponding numbers k are listed in A127837.

Terms are the primes in A060073.

Next term has 15850 = 1 + floor((4357*log(4358) - 2*log(4357))/log(10)) digits and is too large to include. - M. F. Hasler, May 22 2007

Links

Table of n, a(n) for n=1..4.

Formula

a(n) = ((A127837(n) + 1)^A127837(n) - 1) / A127837(n)^2.

Mathematica

Select[Table[((n+1)^n-1)/n^2, {n, 500}], PrimeQ]  (* Harvey P. Dale, Apr 30 2011 *)

Prog

(PARI) A128466(n)=A060073(A127837(n)+1) /* see there. --- or: */ forprime(p=1, 10^5, if(ispseudoprime(n=((p+1)^p-1)/p^2), print1(n, ", "))); \\ M. F. Hasler, May 22 2007

Crossrefs

Cf. A127837, A037205, A060072, A060073, A058128, A128456

Sequence in context: A128456 A137666 A137665 * A048122 A144787 A118910

Adjacent sequences: A128463 A128464 A128465 * A128467 A128468 A128469

Keyword

nonn

Author

Alexander Adamchuk, Mar 09 2007

Status

approved