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 A117673 #29 Dec 01 2023 17:33:39
%S A117673 1,1,1,2,1,2,3,5,1,1,5,2,1,2,3,1,6,3,2,4,2,2,1,1,2,3,3,3,5,1,2,1,3,2,
%T A117673 4,3,5,2,7,1,1,3,1,2,9,2,5,6,12,6,1,1,3,1,3,3,4,3,2,1,3,1,2,3,3,13,3,
%U A117673 5,3,5,7,1,3,2,6,6,12,3,4,2,1,5,1,2,5,1,4,15,3,6,3,4,2,1,2,3,1,16,5,9
%N A117673 a(n) is the least k such that k*2*prime(n) + 1 is prime.
%C A117673 Iff a(n) = 1, prime(n) is a Sophie Germain prime, i.e., in A005384. - _A.H.M. Smeets_, Feb 01 2018
%H A117673 Zak Seidov, <a href="/A117673/b117673.txt">Table of n, a(n) for n = 1..10000</a>
%e A117673 a(8)=5 because 2*prime(8)=38 and 5*38 + 1 is prime.
%t A117673 Table[k := 1; While[ ! PrimeQ[2*k*Prime[n] + 1], k++ ]; k, {n, 1, 120}] (* _Stefan Steinerberger_, May 01 2006 *)
%o A117673 (PARI) a(n) = {my(p=prime(n), k=1); while (!isprime(2*k*p+1), k++); k;} \\ _Michel Marcus_, Feb 12 2018
%Y A117673 Cf. A016014, A035096, A074884.
%K A117673 nonn
%O A117673 1,4
%A A117673 _Don Reble_, Apr 25 2006