A176351 Numbers n such that 2*3^n + 1 is a primitive prime factor of 10^3^n - 1.
4, 180, 320, 5480, 12096, 17720, 82780, 1175232
Offset: 1
Programs
-
Mathematica
Select[Range[10000], PrimeQ[1+2*3^# ] && MultiplicativeOrder[10,1+2*3^# ] == 3^# &]
Extensions
Two more terms from Max Alekseyev, May 03 2010
Comments