1,2
Do[ If[ PrimeQ[ 7*3^n - 2 ], Print[ n ] ], {n, 1, 2500} ]
Sequence in context: A059791 A043329 A023699 * A103025 A134080 A111300
Adjacent sequences: A058602 A058603 A058604 * A058606 A058607 A058608
nonn
Robert G. Wilson v (rgwv(AT)rgwv.com), Dec 26 2000