# Greetings from The On-Line Encyclopedia of Integer Sequences! http://oeis.org/ Search: id:a220142 Showing 1-1 of 1 %I A220142 #9 Dec 30 2019 10:05:45 %S A220142 2,6,18,24,42,54,120,258,396,480,612,840,1074,1800,2130,2172,2256, %T A220142 2550,2694,3282,3492,3690,3810,4110,4626,4788,4860,4992,5148,5280, %U A220142 5958,5994,6804,7920,9654,9660,11082,16134 %N A220142 The values of k in A220141. %t A220142 t = {{2, 2}}; Do[k = 1; While[! (PrimeQ[k*n - 1] && PrimeQ[k*n + 1]), k++]; If[k > t[[-1, 2]], AppendTo[t, {n, k}]], {n, Prime[Range[2, 1000]]}]; Transpose[t][[2]] %Y A220142 Cf. A071407, A220141. %K A220142 nonn,more %O A220142 1,1 %A A220142 _T. D. Noe_, Jan 08 2013 %E A220142 More terms from _Amiram Eldar_, Dec 30 2019 # Content is available under The OEIS End-User License Agreement: http://oeis.org/LICENSE