A210340 - OEIS

%I #12 Apr 03 2023 10:36:13

%S 17,191,4373,5119,524287,590489,3124999,14680063,3758096383,

%T 6973568801,34867844009,85449218749,824633720831,1099999999999,

%U 1618481116086271,11577835060199423,14999999999999999,29311444762388081,73123168801259519

%N Generalized Woodall primes: any primes that can be written in the form n*b^n - 1 with n+2 > b > 2.

%H Arkadiusz Wesolowski, <a href="/A210340/b210340.txt">Table of n, a(n) for n = 1..170</a>

%H Chris Caldwell, <a href="https://t5k.org/top20/page.php?id=45">The Top 20 Generalized Woodall Primes</a>

%H Chris Caldwell, The Prime Glossary, <a href="https://t5k.org/glossary/xpage/WoodallNumber.html">Woodall prime</a>

%H G. L. Honaker, Jr. and Chris Caldwell, <a href="https://t5k.org/curios/cpage/19530.html">17962...40287 (1006-digits)</a>

%H G. L. Honaker, Jr. and Chris Caldwell, <a href="https://t5k.org/curios/cpage/20062.html">19981...99999 (10028-digits)</a>

%H PrimeGrid, <a href="http://www.primegrid.com">Home Page</a>

%H Wikipedia, <a href="http://en.wikipedia.org/wiki/Woodall_number">Woodall number</a>

%e 167*2^668 - 1 is a prime number and 167*2^668 - 1 = 167*16^167 - 1, so this number is in the sequence.

%t lst = {}; Do[p = n*b^n - 1; If[p < 10^200 && PrimeQ[p], AppendTo[lst, p]], {b, 3, 100}, {n, b - 1, 413}]; Sort@lst

%Y Cf. A050918, A002234, A006553, A086661, A059676, A059675.

%K nonn

%O 1,1

%A _Arkadiusz Wesolowski_, Mar 20 2012