1,2

Do[ If[ PrimeQ[ 3*7^n - 2 ], Print[n] ], {n, 1, 5000} ]

Sequence in context: A088293 A145559 A159968 this_sequence A157944 A167245 A064182

Adjacent sequences: A059088 A059089 A059090 this_sequence A059092 A059093 A059094

nonn

Robert G. Wilson v (rgwv(AT)rgwv.com), Feb 12 2001