login
A185073
Numbers n such that (34^n - 1)/33 is prime.
1
13, 1493, 5851, 6379, 125101
OFFSET
1,1
LINKS
MATHEMATICA
Select[Prime[Range[100]], PrimeQ[(34^#-1)/33]&]
PROG
(PARI) isok(n) = isprime((34^n-1)/33); \\ Michel Marcus, Mar 13 2016
(PARI) lista(nn) = for(n=1, nn, if(ispseudoprime((34^n - 1)/33), print1(n, ", "))); \\ Altug Alkan, Mar 13 2016
KEYWORD
hard,more,nonn
AUTHOR
Robert Price, Mar 10 2012
EXTENSIONS
a(5)=125101 corresponds to a probable prime discovered by Paul Bourdelais, Nov 20 2017
STATUS
approved