1,1

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

Sequence in context: A067852 A102025 A090127 this_sequence A022305 A103799 A141104

Adjacent sequences: A057907 A057908 A057909 this_sequence A057911 A057912 A057913

nonn

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