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 A247478 #25 Sep 08 2022 08:46:09
%S A247478 7,11,17,29,53,71,101,109,127,179,227,241,281,307,349,487,587,647,683,
%T A247478 727,829,1009,1061,1109,1289,1487,1511,1523,1567,1621,1627,1709,1847,
%U A247478 1987,2017,2027,2087,2099,2297,2311,2393,2437,2447,2521,2531,2617,2729,2887,2909,2969,3167,3221,3301,3319,3329,3347,3413,3527
%N A247478 Primes p such that (p^4 + 5)/6 is prime.
%C A247478 (p^4+5)/6 is an integer for all primes p>3, because then p == (1 or 5) (mod 6) as in A039704, therefore p^2 == 1 (mod 6) and finally p^4 == 1 (mod 6).
%e A247478 (7^4+5)/6 = 401 prime, (11^4+5)/6 = 2441 prime.
%t A247478 Select[Prime[Range[10^3]], PrimeQ[(#^4 + 5) / 6] &] (* _Vincenzo Librandi_, Jan 21 2015 *)
%o A247478 (PARI) lista(nn) = {forprime(p=4, nn, if (isprime((p^4 + 5)/6), print1(p, ", ")););} \\ _Michel Marcus_, Jan 20 2015
%o A247478 (Magma) [p: p in PrimesInInterval(3, 4000) | IsPrime((p^4+5) div 6)]; // _Vincenzo Librandi_, Jan 21 2015
%Y A247478 Cf. A118915.
%K A247478 nonn
%O A247478 1,1
%A A247478 _Zak Seidov_, Jan 19 2015