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 A051169 #20 Mar 24 2024 00:30:41
%S A051169 3,6,15,49,49,49,49,110,154,154,278,278,278,278,496,496,496,496,496,
%T A051169 496,1321,1321,1321,1321,1321,1321,2686,2686,2686,2686,2686,2686,2686,
%U A051169 3713,3713,3713,3713,3713,3713,21766,21766,21766,21766,21766,21766,21766
%N A051169 Smallest number m such that 2*m - p is composite for the first n primes p.
%D A051169 Computed by Peter G. Anderson at the Rochester Institute of Technology.
%H A051169 Paul S. Bruckman and T. D. Noe, <a href="/A051169/b051169.txt">Table of n, a(n) for n = 1..974</a>
%e A051169 a(2) = 6 because 2*6-2 = 10 and 2*6-3 = 9 are composite.
%t A051169 a[n_] := a[n] = Catch[For[m = 2, True, m++, If[And @@ (! PrimeQ[2*m - #] &) /@ Prime /@ Range[n], Throw[m]]]]; Table[ Print[a[n]]; a[n], {n, 1, 46}] (* _Jean-François Alcover_, Jul 17 2012 *)
%t A051169 Module[{nn=50,prs},prs=Prime[Range[nn]];Table[SelectFirst[Range[50000], AllTrue[Table[2#-p,{p,Take[prs,n]}],CompositeQ]&],{n,nn}]] (* The program uses the AllTrue function from Mathematica version 10 *) (* _Harvey P. Dale_, Mar 18 2015 *)
%o A051169 (Haskell)
%o A051169 a051169 n = head [m | m <- [2..],
%o A051169 all (== 0) $ map (a010051' . (2*m -)) $ take n a000040_list]
%o A051169 -- _Reinhard Zumkeller_, Apr 09 2015
%Y A051169 See A051610 and A116111 for records. Cf. A025017.
%Y A051169 Cf. A010051, A000040.
%K A051169 nice,nonn
%O A051169 1,1
%A A051169 Paul S. Bruckman (pbruckman(AT)hotmail.com)
%E A051169 More terms from Paul S. Bruckman, Jan 20 2007
%E A051169 Edited by _N. J. A. Sloane_, Apr 14 2007, May 04 2007, Jun 10 2008