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 A213428 #22 Jun 02 2023 02:00:09 %S A213428 6,10,12,60,72,168,174,190,204,230,290,300,396,536,628,948,972,990, %T A213428 1014,1042,1050,1174,1254,1324,1326,1428,1566,1602,1662,1684,1808, %U A213428 1854,1866,1942,1950,2070,2154,2170,2206,2214,2234,2332,2388,2508,2660,2668,2784 %N A213428 Numbers k such that k^8 - prime(k) is prime. %C A213428 k such that A001016(k) - A000040(k) is in A000040. %H A213428 Robert Israel, <a href="/A213428/b213428.txt">Table of n, a(n) for n = 1..10000</a> %e A213428 a(1) = 6 because 6^8 - prime(6) = 1679603 is prime. %p A213428 P:= select(isprime,[2,seq(i,i=3..10^5,2)]): %p A213428 select(t -> isprime(t^8 - P[t]), [seq(i,i=2..nops(P),2)]); # _Robert Israel_, Jun 02 2023 %t A213428 Select[Range[3000], PrimeQ[#^8 - Prime[#]] &] (* _T. D. Noe_, Jun 11 2012 *) %Y A213428 Cf. A001016, A064712, A212881, A212883. %K A213428 nonn,easy %O A213428 1,1 %A A213428 _Jonathan Vos Post_, Jun 11 2012