1,2
Do[ If[ PrimeQ[ 2*3^n + 5 ], Print[ n ] ], {n, 1, 2500} ]
Sequence in context: A015931 A120430 A152606 * A085266 A056804 A101547
Adjacent sequences: A057908 A057909 A057910 * A057912 A057913 A057914
nonn
Robert G. Wilson v (rgwv(AT)rgwv.com), Nov 16 2000