|
%I #18 Sep 08 2022 08:44:49
%S 3413,171851,800143,21146189,92361319,233915567,287889649,351395251,
%T 511939063,611695897,857765101,1369378627,1585717909,4487418853,
%U 7816697183,14152933547,22107078277,26146483801,30755875373,69098926867,84378396409,155844134429,174691507057
%N Primes of form n + (n+1)^2 + (n+2)^3 + (n+3)^4 + (n+4)^5.
%H Vincenzo Librandi, <a href="/A027886/b027886.txt">Table of n, a(n) for n = 1..300</a>
%H P. De Geest, <a href="http://www.worldofnumbers.com/sumpower.htm">Palindromic Quasi_Under_Squares of the form n+(n+1)^2</a>
%t f[n_]:=(n+1)^1+(n+2)^2+(n+3)^3+(n+4)^4+(n+5)^5;lst={};Do[a=f[n];If[PrimeQ[a],AppendTo[lst,a]],{n,0,6!}];lst (* _Vladimir Joseph Stephan Orlovsky_, May 30 2009 *)
%o (PARI) forstep(n=1,100,2,if(isprime(p=n^5 + 21*n^4 + 173*n^3 + 701*n^2 + 1403*n + 1114), print1(p", "))) \\ _Charles R Greathouse IV_, Oct 03 2013
%o (Magma) [a: n in [0..250] | IsPrime(a) where a is n+(n+1)^2+(n+2)^3 +(n+3)^4+(n+4)^5]; // _Vincenzo Librandi_, Oct 05 2013
%K nonn
%O 1,1
%A _Patrick De Geest_
%E a(18)-a(23) from _Vincenzo Librandi_, Oct 04 2013
|
