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 A176116 #30 Feb 07 2021 21:04:16 %S A176116 3,5,7,11,13,17,23,29,61,71,73,103,113,199,251,313,317,337,353,419, %T A176116 431,449,463,479,487,503,523,607,613,643,677,701,719,761,769,811,821, %U A176116 829,857,883,919,997,1013,1019,1049,1087,1123,1163,1259,1327,1381,1483,1493 %N A176116 Primes p such that p^4+1 = 2q where q is prime. %H A176116 Jon E. Schoenfield, <a href="/A176116/b176116.txt">Table of n, a(n) for n = 1..10000</a> %e A176116 3^4+1 = 2*41; 5^4+1 = 2*313; 7^4+1 = 2*1201; 11^4+1 = 2*7321. %t A176116 Select[Prime[Range[250]],PrimeQ[(#^4+1)/2]&] (* _Harvey P. Dale_, Jul 20 2012 *) %o A176116 (PARI) lista(nn) = forprime(p=3, nn, if (isprime((p^4+1)/2), print1(p, ", "));); \\ _Michel Marcus_, Oct 03 2016 %Y A176116 Subsequence of A096169. %Y A176116 Cf. A277201 (resulting primes). %K A176116 easy,nonn %O A176116 1,1 %A A176116 Kevin Batista (kevin762401(AT)yahoo.com), Apr 08 2010 %E A176116 Edited by _Ray Chandler_, Apr 10 2010