OFFSET
1,1
COMMENTS
a(14) > 15000. - Michael S. Branicky, Oct 01 2024
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
KEYWORD
more,nonn
AUTHOR
Ray G. Opao, Jun 30 2005
STATUS
approved