%I #12 Sep 08 2022 08:45:28
%S 1,4,15,34,39,45,55,60,103,117,123,127,129,142,172,183,190,214,222,
%T 223,234,243,265,294,337,343,354,357,472,484,495,502,510,514,520,525,
%U 552,562,600,625,628,640,652,660,663,685,748,754,775,865,885,975,979
%N Numbers n for which 1+n+n^3+n^5+n^7 is prime.
%H Vincenzo Librandi, <a href="/A124150/b124150.txt">Table of n, a(n) for n = 1..1000</a>
%t Do[If[PrimeQ[1 + n + n^3 + n^5 + n^7], Print[n]], {n, 1, 1000}]
%t Select[Range[1000],PrimeQ[1+#+#^3+#^5+#^7]&] (* _Harvey P. Dale_, Jul 16 2013 *)
%t Select[Range[1000], PrimeQ[Total[#^Range[1, 7, 2]] + 1] &] (* _Vincenzo Librandi_, Jun 27 2014 *)
%o (Magma) [n: n in [0..900] | IsPrime(s) where s is 1+&+[n^i: i in [1..7 by 2]]]; // _Vincenzo Librandi_, Jun 27 2014
%Y Cf. similar sequences listed in A244376.
%K nonn,easy
%O 1,2
%A _Artur Jasinski_, Dec 13 2006