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