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 A116954 #19 Aug 05 2025 18:05:29 %S A116954 4,10,14,16,18,20,30,36,38,48,54,58,64,70,74,86,96,106,120,140,150, %T A116954 154,166,170,174,176,180,200,230,234,244,260,266,268,288,296,300,304, %U A116954 306,308,324,330,338,340,346,348,368,384,388,394,396,406,408,434,438,440 %N A116954 Numbers k such that 3*k^3 + 1 is prime. %C A116954 All terms are even. - _Robert Israel_, Jan 24 2018 %H A116954 Robert Israel, <a href="/A116954/b116954.txt">Table of n, a(n) for n = 1..10000</a> %e A116954 If k=48 then 3*k^3 + 1 = 331777 (prime). %p A116954 select(n -> isprime(3*n^3+1), [seq(i,i=2..1000,2)]); # _Robert Israel_, Jan 24 2018 %t A116954 Select[Range[2000], PrimeQ[3#^3 + 1] &] (* _Stefan Steinerberger_, Apr 22 2006 *) %t A116954 Select[Range[2, 500], PrimeQ[3#^3 + 1] &] (* _Stefan Steinerberger_, Jul 22 2006 *) %o A116954 (Magma) [ n: n in [0..500] | IsPrime(3*n^3 + 1) ]; // _Vincenzo Librandi_, Jan 31 2011 %o A116954 (PARI) is(n)=isprime(3*n^3+1) \\ _Charles R Greathouse IV_, Feb 20 2017 %Y A116954 Cf. A089001. %K A116954 nonn,less %O A116954 1,1 %A A116954 _Parthasarathy Nambi_, Apr 20 2006 %E A116954 More terms from _Stefan Steinerberger_, Apr 22 2006, Jul 22 2006