A108318 Numbers k such that (k+1)*k^k - 1 is prime.

2, 3, 4, 5, 7, 11, 15, 26, 52, 116, 359, 1547, 2465

Offset

1,1

Comments

a(14) > 15000. - Michael S. Branicky, Oct 01 2024

Links

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

Example

15 is in the sequence because (15+1)*15^15-1 = 16*15^15-1 = 7006302246093749999, which is prime.

Mathematica

Select[Range[1000], PrimeQ[(# + 1) #^# - 1] &] (* Vincenzo Librandi, Oct 23 2014 *)

Prog

(PARI) isok(n) = isprime((n+1)*n^n-1); \\ Michel Marcus, Oct 23 2014
(Magma) [n: n in [1..1000] |IsPrime((n+1)*n^n-1)]; // Vincenzo Librandi, Oct 23 2014

Crossrefs

Cf. A108879.

Sequence in context: A347983 A259466 A046420 * A358876 A006456 A018134

Adjacent sequences: A108315 A108316 A108317 * A108319 A108320 A108321

Keyword

more,nonn

Author

Ray G. Opao, Jun 30 2005

Status

approved