This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A124150 #12 Sep 08 2022 08:45:28 %S A124150 1,4,15,34,39,45,55,60,103,117,123,127,129,142,172,183,190,214,222, %T A124150 223,234,243,265,294,337,343,354,357,472,484,495,502,510,514,520,525, %U A124150 552,562,600,625,628,640,652,660,663,685,748,754,775,865,885,975,979 %N A124150 Numbers n for which 1+n+n^3+n^5+n^7 is prime. %H A124150 Vincenzo Librandi, <a href="/A124150/b124150.txt">Table of n, a(n) for n = 1..1000</a> %t A124150 Do[If[PrimeQ[1 + n + n^3 + n^5 + n^7], Print[n]], {n, 1, 1000}] %t A124150 Select[Range[1000],PrimeQ[1+#+#^3+#^5+#^7]&] (* _Harvey P. Dale_, Jul 16 2013 *) %t A124150 Select[Range[1000], PrimeQ[Total[#^Range[1, 7, 2]] + 1] &] (* _Vincenzo Librandi_, Jun 27 2014 *) %o A124150 (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 A124150 Cf. similar sequences listed in A244376. %K A124150 nonn,easy %O A124150 1,2 %A A124150 _Artur Jasinski_, Dec 13 2006