1,2
Do[If[PrimeQ[n^(n+1)+(n+1)^n+n(n+1)], Print[n]], {n, 0, 1000}]
Cf. A072179, A073499.
Sequence in context: A075807 A124232 A051143 this_sequence A115337 A076209 A037399
Adjacent sequences: A084850 A084851 A084852 this_sequence A084854 A084855 A084856
more,nonn
Farideh Firoozbakht (f.firoozbakht(AT)sci.ui.ac.ir), Jul 13 2003
Search completed in 0.002 seconds
