|
%I #19 Aug 20 2021 10:03:52
%S 13,1493,5851,6379,125101
%N Numbers n such that (34^n - 1)/33 is prime.
%H H. Dubner, <a href="http://dx.doi.org/10.1090/S0025-5718-1993-1185243-9">Generalized repunit primes</a>, Math. Comp., 61 (1993), 927-930.
%H H. Lifchitz, <a href="http://www.primenumbers.net/Henri/us/MersFermus.htm">Mersenne and Fermat primes field</a>
%H P. Bourdelais, <a href="https://listserv.nodak.edu/cgi-bin/wa.exe?A2=NMBRTHRY;417ab0d6.0906">A Generalized Repunit Conjecture</a>
%t Select[Prime[Range[100]], PrimeQ[(34^#-1)/33]&]
%o (PARI) isok(n) = isprime((34^n-1)/33); \\ _Michel Marcus_, Mar 13 2016
%o (PARI) lista(nn) = for(n=1, nn, if(ispseudoprime((34^n - 1)/33), print1(n, ", "))); \\ _Altug Alkan_, Mar 13 2016
%Y Cf. A028491, A004061, A004062, A004063, A004064, A004023, A005808, A016054, A006032, A006033, A006034, A006035, A098438, A127995-A128005.
%K hard,more,nonn
%O 1,1
%A _Robert Price_, Mar 10 2012
%E a(5)=125101 corresponds to a probable prime discovered by _Paul Bourdelais_, Nov 20 2017
|
