1,2
Do[ If[ PrimeQ[ 5*2^n - 3 ], Print[ n ] ], {n, 1, 10000} ]
Sequence in context: A049407 A030759 A030709 this_sequence A035399 A153775 A063756
Adjacent sequences: A058585 A058586 A058587 this_sequence A058589 A058590 A058591
nonn
Robert G. Wilson v (rgwv(AT)rgwv.com), Dec 26 2000
Search completed in 0.002 seconds