1,2

Do[If[PrimeQ[6*9^n + 1], Print[n]], {n, 0, 1000}]

Sequence in context: A112285 A037170 A006399 this_sequence A034919 A151340 A134316

Adjacent sequences: A056797 A056798 A056799 this_sequence A056801 A056802 A056803

nonn

Robert G. Wilson v (rgwv(AT)rgwv.com), Aug 22 2000