STATUS
reviewed
approved
reviewed
approved
proposed
reviewed
editing
proposed
f[a_]:=a^0+a^2+a^3; lst={}; Do[If[PrimeQ[f[n]], AppendTo[lst, n]], {n, 6!}]; lst (* Vladimir Joseph Stephan Orlovsky, Jul 14 2009 *)
proposed
editing
editing
proposed
Numbers n k such that nk^3 + nk^2 + 1 is prime.
a:=proc(n) if isprime(n^3+n^2+1)=true then n else fi end: seq(a(n), n=0..300); # (_Emeric Deutsch)_, Aug 04 2006
Cf. A005574.
approved
editing
editing
approved
(PARI) is(n)=isprime(n^3+n^2+1) \\ Charles R Greathouse IV, Jan 21 2015
reviewed
editing
proposed
reviewed
editing
proposed