1,2

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

Sequence in context: A032913 A154508 A073573 this_sequence A034926 A096102 A045797

Adjacent sequences: A059618 A059619 A059620 this_sequence A059622 A059623 A059624

nonn

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