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 A006313 M2164 #54 Jun 20 2025 16:45:15 %S A006313 1,2,44,74,76,94,156,158,176,188,198,248,288,306,318,330,348,370,382, %T A006313 396,452,456,470,474,476,478,560,568,598,642,686,688,690,736,774,776, %U A006313 778,790,830,832,834,846,900,916,946,956,972,982,984,1018,1044,1078 %N A006313 Numbers k such that k^16 + 1 is prime. %D A006313 Dubner, Harvey. "Generalized Fermat primes." J. Recreational Math., 18 (1985): 279-280. %D A006313 N. J. A. Sloane and Simon Plouffe, The Encyclopedia of Integer Sequences, Academic Press, 1995 (includes this sequence). %H A006313 Ray Chandler, <a href="/A006313/b006313.txt">Table of n, a(n) for n = 1..10000</a> (first 1000 terms from T. D. Noe) %t A006313 lst={};Do[If[PrimeQ[n^16+1], AppendTo[lst, n]], {n, 10^4}];lst (* _Vladimir Joseph Stephan Orlovsky_, Aug 20 2008 *) %t A006313 s=Reap[Sow[1];Do[If[PrimeQ[n^16+1],Sow[n]],{n,2,40352,2}]][[2,1]] (* _Zak Seidov_, Dec 22 2010 *) %t A006313 Join[{1},2*Flatten[Position[Range[2,1100,2]^16+1,_?PrimeQ]]] (* _Harvey P. Dale_, Jun 26 2017 *) %o A006313 (PARI) isA006313(n) = isprime(n^16+1) \\ _Michael B. Porter_, Mar 25 2010 %o A006313 (Magma) [ n: n in [0..1500] | IsPrime(n^16+1) ]; // _Vincenzo Librandi_, Nov 18 2010 %Y A006313 Cf. A005574, A000068, A006314, A006315, A006316, A056994, A056995, A057465, A057002, A088361, A088362, A226528, A226529, A226530, A251597, A253854, A244150, A243959, A321323. %K A006313 nonn %O A006313 1,2 %A A006313 _N. J. A. Sloane_ %E A006313 More terms from _Hugo Pfoertner_, Jun 22 2003