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 A178251 #27 Feb 03 2024 00:54:58 %S A178251 19,31,37,67,109,151,211,241,277,367,439,457,619,691,727,787,859,967, %T A178251 1087,1171,1471,1489,1531,1579,1951,2131,2287,2791,2851,2971,3061, %U A178251 3319,3511,3547,3559,3739,4129,4357,4447,4507,4591,4651,4789,4801,4831,4951 %N A178251 Primes p such that p^3 - 2 is prime. %H A178251 Vincenzo Librandi, <a href="/A178251/b178251.txt">Table of n, a(n) for n = 1..1000</a> %e A178251 6857 = prime(882) = 19^3 - 2, 19 = prime(8) is 1st term. %e A178251 29789 = prime(3228) = 31^3 - 2, 31 = prime(11) is 2nd term. %t A178251 Select[Prime[Range[10000]], PrimeQ[#^3 - 2] &] (* _Vincenzo Librandi_, Mar 20 2014 *) %o A178251 (Sage) a = list(p for p in primes(10000) if is_prime(p**3-2)) # _D. S. McNeil_, May 25 2010 %o A178251 (Magma) [p: p in PrimesUpTo(5000) | IsPrime(p^3-2)]; // _Vincenzo Librandi_, Nov 17 2010 %o A178251 (PARI) list(lim)=my(v=List()); forprime(p=2,lim, if(isprime(p^3-2), listput(v, p))); Vec(v) \\ _Charles R Greathouse IV_, Feb 08 2016 %Y A178251 Cf. A000040, A000578, A038599, A038600, A144953. %K A178251 nonn,easy %O A178251 1,1 %A A178251 Ulrich Krug (leuchtfeuer37(AT)gmx.de), May 24 2010 %E A178251 Base tag removed by _D. S. McNeil_, May 25 2010