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 A100357 #26 Mar 23 2025 17:03:52
%S A100357 0,6,12,18,162,192,216,420,1524,5112,7404,24216,25944,101832,346854
%N A100357 Numbers k such that 2^k + k^2 + 1 is prime.
%C A100357 a(15) > 200000. - _Giovanni Resta_, Mar 23 2014
%C A100357 All terms are multiples of 6. Corresponding primes of the form 2^n+n^2+1 are in A035325. - _Zak Seidov_, Apr 05 2014
%C A100357 a(16) > 5*10^5. - _Robert Price_, Jun 15 2014
%t A100357 {ta={{0}}, tb={{0}}}; Do[g=n;s=2^n+n^2+1;If[PrimeQ[s], Print[n];ta=Append[ta, n];tb=Append[tb, s]], {n, 0, 10000, 6}];{ta, tb, g}
%t A100357 Select[Range[0, 10000, 6], PrimeQ[2^# + #^2 + 1] &] (* _Vincenzo Librandi_, Sep 03 2012 *)
%o A100357 (Magma) [n: n in [0..800] | IsPrime(2^n + n^2 + 1) ]; // _Vincenzo Librandi_, Sep 03 2012
%o A100357 (PARI) is(n)=isprime(2^n+n^2+1) \\ _Charles R Greathouse IV_, Jul 01 2013
%Y A100357 Cf. A001580, A063997, A035325.
%K A100357 nonn
%O A100357 1,2
%A A100357 _Labos Elemer_, Nov 19 2004
%E A100357 Added a(1) from _Vincenzo Librandi_, Sep 03 2012
%E A100357 a(12)-a(14) from _Giovanni Resta_, Mar 23 2014
%E A100357 Mathematica codes edited by _Zak Seidov_, Apr 05 2014
%E A100357 a(15) from _Robert Price_, Jun 15 2014