1,2

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

Adjacent sequences: A059618 A059619 A059620 this_sequence A059622 A059623 A059624

Sequence in context: A003528 A032913 A073573 this_sequence A034926 A096102 A045797

nonn

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