1,2
Do[ If[ PrimeQ[ 10*7^n + 1], Print[n]], {n, 1, 1000}]
Adjacent sequences: A057434 A057435 A057436 this_sequence A057438 A057439 A057440
Sequence in context: A024704 A024510 A029905 this_sequence A024666 A024671 A047386
nonn
Robert G. Wilson v (rgwv(AT)rgwv.com), Sep 08 2000
Search completed in 0.002 seconds