1,1
With[{c=2^31-1}, Select[Range[2500], PrimeQ[c 6^#-1]&]] (* From Harvey P. Dale, Oct 22 2011 *)
Sequence in context: A164376 A025583 A134101 * A160119 A160379 A168671
Adjacent sequences: A098880 A098881 A098882 * A098884 A098885 A098886
nonn
Pierre CAMI (pierre-cami(AT)bbox.fr), Oct 14 2004