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 A105453 #17 Aug 29 2025 20:41:05
%S A105453 2,14,16,20,24,30,40,44,48,72,76,84,96,120,122,160,168,182,214,230,
%T A105453 254,266,270,280,288,292,294,330,338,360,390,428,490,496,512,540,544,
%U A105453 546,552,560,576,578,582,644,654,656,660,714,726,740,746,750,758,762
%N A105453 Numbers k such that prime(k) + k*prime(k+1) is prime.
%t A105453 bb={}; Do[If[PrimeQ[Prime[n]+n*Prime[n+1]], bb=Append[bb, n]], {n, 2, 400, 2}]; bb
%t A105453 Select[Range[2, 1200], PrimeQ[Prime[#] + # Prime[# + 1]] &] (* _Harvey P. Dale_, May 02 2012 *)
%o A105453 (PARI) is(n,p=prime(n))=isprime(p+nextprime(p+1)*n) \\ _Charles R Greathouse IV_, Jun 13 2017
%K A105453 nonn,changed
%O A105453 1,1
%A A105453 _Zak Seidov_, May 02 2005
%E A105453 More terms from _Harvey P. Dale_, May 02 2012