1,1
Do[s=1+n^(EulerPhi[n]); If[PrimeQ[s], Print[s]], {n, 1, 1000}]
Cf. A066719, A000010.
Sequence in context: A029733 A153686 A042137 this_sequence A154316 A051084 A106860
Adjacent sequences: A067973 A067974 A067975 this_sequence A067977 A067978 A067979
more,nonn
Labos E. (labos(AT)ana.sote.hu), Feb 06 2002
Corrected by Hauke Worpel (hw1(AT)email.com), May 29 2003
Search completed in 0.002 seconds