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 A086173 #16 Sep 08 2022 08:45:11 %S A086173 2,8,12,14,18,30,54,66,72,80,90,94,102,110,124,144,150,160,178,184, %T A086173 186,198,208,210,222,224,234,250,260,264,266,280,312,336,342,370,390, %U A086173 400,414,432,450,462,468,470,472,476,510,564,570,596,598,600,616,652,690 %N A086173 Numbers k such that k*prime(k)-1 is prime. %C A086173 See also A086172, A086174, A086175, A086176, A086177. %H A086173 Vincenzo Librandi, <a href="/A086173/b086173.txt">Table of n, a(n) for n = 1..1000</a> %t A086173 Select[Range[1000], PrimeQ[ # Prime[ # ]-1]&] %o A086173 (Magma) [n: n in [1..800] | IsPrime(n*NthPrime(n) - 1)]; // _Vincenzo Librandi_, Oct 05 2012 %Y A086173 Cf. A086172, A086174, A086175, A086176, A086177. %K A086173 easy,nonn %O A086173 1,1 %A A086173 _Zak Seidov_, Jul 11 2003