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 A253143 #10 Nov 29 2018 12:46:38 %S A253143 2,4,16,22,32,44,86,88,98,298,316,452,602,638,658,736,862,868,896, %T A253143 1276,1358,1586,1768,1996,2342,2366,2444,2452,2542,2788,2902,3242, %U A253143 3448,3704,3718,3998,4376,4552,4928,5422,5504,5566,5608,5644,5728,5768,5776,6664,6934,6946,7708,7858 %N A253143 Numbers n such that n + 15, n^2 + 15 and n^3 + 15 are prime. %e A253143 With n=2, n+15 (17), n^2+15 (19) and n^3+15 (23) are all prime. %t A253143 p = 15; Select[Range[2, 20000, 2], PrimeQ[p + #^3] && PrimeQ[p + #^2] && PrimeQ[p + #] &] %t A253143 Select[Range[2,8000,2],AllTrue[#^Range[3]+15,PrimeQ]&] (* The program uses the AllTrue function from Mathematica version 10 *) (* _Harvey P. Dale_, Nov 29 2018 *) %o A253143 (PARI) isok(n) = isprime(n+15) && isprime(n^2 + 15) && isprime(n^3 + 15); \\ _Michel Marcus_, Dec 28 2014 %Y A253143 Subsequence of A253142, A086303 and A121982. %K A253143 nonn %O A253143 1,1 %A A253143 _Zak Seidov_, Dec 27 2014