1,3
Do[ If[ PrimeQ[ 5*7^n + 6 ], Print[n] ], {n, 0, 5700} ]
Sequence in context: A002447 A007499 A117555 * A037397 A168047 A173446
Adjacent sequences: A059807 A059808 A059809 * A059811 A059812 A059813
nonn
Robert G. Wilson v (rgwv(AT)rgwv.com), Feb 24 2001