1,1

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

Sequence in context: A135632 A068541 A108425 this_sequence A083433 A083435 A110995

Adjacent sequences: A059566 A059567 A059568 this_sequence A059570 A059571 A059572

nonn

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