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: A102271 A112633 A145039 * A049490 A112391 A127928
Adjacent sequences: A113913 A113914 A113915 * A113917 A113918 A113919
nonn
Joao da Silva (zxawyh66(AT)yahoo.com), Jan 30 2006