A158400 Primes of the form (k+1)^k - k^(k-1).

7, 7151, 109873, 956953279, 3497141354765072424170242943188801

Offset

1,1

Comments

Next term too large to be included (1652 digits)

Links

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

Example

3^2-2^1 = 9-2 = 7.

Maple

P:=proc(i) local a, n; for n from 2 by 1 to i do a:=n^(n-1)-(n-1)^(n-2); if isprime(a) then print(a); fi; od; end: P(2000);

Mathematica

Select[Table[(n + 1)^n - n^(n - 1), {n, 1000}], PrimeQ] (* Michael De Vlieger, Apr 22 2015 *)

Prog

(PARI) select(isprime, vector(9, n, (n+1)^n-n^(n-1))) \\ Charles R Greathouse IV, Apr 22 2015

Crossrefs

Primes in A178922.

Cf. A054463.

Sequence in context: A281358 A343145 A068575 * A221628 A220879 A119528

Adjacent sequences: A158397 A158398 A158399 * A158401 A158402 A158403

Keyword

easy,nonn

Author

Paolo P. Lava & Giorgio Balzarotti, Mar 18 2009

Status

approved