1,2
Do[If[PrimeQ[8*9^n + 1], Print[n]], {n, 0, 1000}]
Sequence in context: A036539 A000769 A050831 this_sequence A109503 A067371 A068719
Adjacent sequences: A056796 A056797 A056798 this_sequence A056800 A056801 A056802
nonn
Robert G. Wilson v (rgwv(AT)rgwv.com), Aug 22 2000
Search completed in 0.002 seconds