|
|
A185073
|
|
Numbers n such that (34^n - 1)/33 is prime.
|
|
1
|
|
|
|
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
|
|
CROSSREFS
|
Cf. A028491, A004061, A004062, A004063, A004064, A004023, A005808, A016054, A006032, A006033, A006034, A006035, A098438, A127995-A128005.
|
|
KEYWORD
|
hard,more,nonn
|
|
AUTHOR
|
|
|
EXTENSIONS
|
a(5)=125101 corresponds to a probable prime discovered by Paul Bourdelais, Nov 20 2017
|
|
STATUS
|
approved
|
|
|
|