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 A216981 #19 Sep 08 2022 08:46:04
%S A216981 2,3,4782971,1801088543,1174711139839,3938980639169,93206534790701,
%T A216981 425927596977749,1107984764452583,2149422977421877,7416552901015627,
%U A216981 19891027786401119,307732862434921877,830512886046548069,1042842864990234377,3678954248903875651
%N A216981 Primes of the form n^7+2.
%H A216981 Charles R Greathouse IV, <a href="/A216981/b216981.txt">Table of n, a(n) for n = 1..10000</a>
%t A216981 lst={}; Do[p=n^7+2; If[PrimeQ[p], AppendTo[lst, p]], {n, 6!}]; lst
%t A216981 Select[Table[n^7 + 2, {n, 0, 400}], PrimeQ] (* _Vincenzo Librandi_, Mar 15 2013 *)
%o A216981 (PARI)
%o A216981 v=select(n->isprime(n^7+2),vector(2000,n,n-1)); /* A216980 */
%o A216981 vector(#v, n, v[n]^7+2)
%o A216981 /* _Joerg Arndt_, Sep 21 2012 */
%o A216981 (PARI) select(isprime, vector(2000,n,(n-1)^7+2)) \\ _Charles R Greathouse IV_, Sep 21 2012
%o A216981 (Magma) [a: n in [0..500] | IsPrime(a) where a is n^7+2]; // _Vincenzo Librandi_, Mar 15 2013
%Y A216981 Cf. A056899, A144953, A216975, A216977, A216979.
%K A216981 nonn,easy
%O A216981 1,1
%A A216981 _Michel Lagneau_, Sep 21 2012