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 A071351 #11 Jan 02 2018 16:42:36 %S A071351 3,21,87,99,129,141,279,627,657,777,783,795,1653,1725,1833,1959,2001, %T A071351 2043,3039,3399,3609,3861,3975,4257,4371,4491,5403,5541,5709,5985, %U A071351 7371,7539,7869,7917,8397,8445,8547,8793,9051,9057,9915,9933,11067,12153 %N A071351 Numbers n such that both n^4 + 2 and n^4 - 2 are prime. %H A071351 Harvey P. Dale, <a href="/A071351/b071351.txt">Table of n, a(n) for n = 1..1000</a> %e A071351 n=3: n^4 = 81; {79,83} are primes. %t A071351 lst={}; Do[p1=n^4-2; p2=n^4+2; If[PrimeQ[p1]&&PrimeQ[p2],AppendTo[lst,n]],{n,0,8!}]; lst (* _Vladimir Joseph Stephan Orlovsky_, Jan 17 2009 *) %t A071351 Select[Range[730000], AllTrue[#^4 + {2, -2}, PrimeQ] &] (* The program uses the AllTrue function from Mathematica version 10 *) (* _Harvey P. Dale_, Jan 02 2018 *) %Y A071351 Cf. A028870, A038599, A154831, A154832, A154833, A154834, A154933, A154934, A154935, A154936. - _Vladimir Joseph Stephan Orlovsky_, Jan 17 2009 %K A071351 easy,nonn %O A071351 1,1 %A A071351 _Labos Elemer_, May 21 2002