1,1
Do[ If[ PrimeQ[ 2*3^n - 5 ], Print[ n ] ], {n, 1, 2500} ]
Sequence in context: A067852 A102025 A090127 * A022305 A103799 A175817
Adjacent sequences: A057907 A057908 A057909 * A057911 A057912 A057913
nonn
Robert G. Wilson v (rgwv(AT)rgwv.com), Nov 16 2000