1,2

Do[ If[ PrimeQ[6^n - n], Print[n] ], {n, 1, 2500} ]

Sequence in context: A074222 A054820 A140619 this_sequence A063313 A044096 A044477

Adjacent sequences: A058826 A058827 A058828 this_sequence A058830 A058831 A058832

nonn

Robert G. Wilson v (rgwv(AT)rgwv.com), Jan 04 2001