1,1

Note that n must itself be a prime.

Do[ p = Prime[n]; If[PrimeQ[(p^n - 1)/(p - 1)], Print[n]], {n, 1800}] (* Robert G. Wilson v *)

Sequence in context: A077313 A102271 A112633 this_sequence A049490 A112391 A127928

Adjacent sequences: A113913 A113914 A113915 this_sequence A113917 A113918 A113919

nonn

Joao da Silva (zxawyh66(AT)yahoo.com), Jan 30 2006