1,2

Do[ If[ PrimeQ[ 2*3^n + 5 ], Print[ n ] ], {n, 1, 2500} ]

Sequence in context: A085152 A120430 A152606 this_sequence A085266 A056804 A101547

Adjacent sequences: A057908 A057909 A057910 this_sequence A057912 A057913 A057914

nonn

Robert G. Wilson v (rgwv(AT)rgwv.com), Nov 16 2000