|
%I #5 Aug 17 2012 15:04:38
%S 127,347,2207,8017,10667,15647,17599,21977,29819,32797,54907,64037,
%T 97379,103867,148927,314497,456607,571867,681557,753659,778777,
%U 1092827,1191119,1331107,1443007,2352767,2515589,3048767,3112279,3241937
%N Primes of the form n+(n+3)^3, n>=0.
%C These are created by n=2, 4, 10, 17, 19, 22, 23, 25, 28, 29, 35, 37, 43, 44,
%C 50, 65, 74, 80, 85, 88, 89, 100, 103, 107, 110, 130, 133, 142, 143...
%C The prime created by the negative n = -1 is not included.
%t f[n_]:=n^1+(n+3)^3; lst={};Do[If[PrimeQ[f[n]],AppendTo[lst,f[n]]],{n, 6!}];lst
%t Select[Table[n+(n+3)^3,{n,300}],PrimeQ] (* _Harvey P. Dale_, Aug 17 2012 *)
%K nonn
%O 1,1
%A _Vladimir Joseph Stephan Orlovsky_, Jun 24 2009
%E Note on primes from negative n added by _R. J. Mathar_, Jun 26 2009
|
