1,2
Do[ If[ PrimeQ[ 3*7^n - 2 ], Print[n] ], {n, 1, 5000} ]
Sequence in context: A088293 A145559 A159968 * A157944 A167245 A205087
Adjacent sequences: A059088 A059089 A059090 * A059092 A059093 A059094
nonn
Robert G. Wilson v (rgwv(AT)rgwv.com), Feb 12 2001