1,2
Do[ If[ PrimeQ[ 7*3^n + 2 ], Print[ n ] ], {n, 1, 2500} ]
Adjacent sequences: A058600 A058601 A058602 this_sequence A058604 A058605 A058606
Sequence in context: A076001 A032833 A127068 this_sequence A042653 A042431 A032834
nonn
Robert G. Wilson v (rgwv(AT)rgwv.com), Dec 26 2000
Search completed in 0.002 seconds