1,1

Do[ If[ PrimeQ[ (5*3^n - 7)/2 ], Print[n] ], {n, 0, 10000} ]

Sequence in context: A045521 A076434 A049441 this_sequence A131475 A045541 A153665

Adjacent sequences: A059619 A059620 A059621 this_sequence A059623 A059624 A059625

nonn

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