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 A101768 #17 Aug 09 2025 20:06:30 %S A101768 2894219,5246009,8189999,8678669,13951559,18160379,24765509,38911949, %T A101768 40645919,60041519,64523969,108405989,124028309,126392699,132767039, %U A101768 142738679,189142589,242024369,248451839,325561319,354218759,392136359 %N A101768 Numbers k such that k, 2*k+1, 3*k+2, 4*k+3, 5*k+4, 6*k+5, 7*k+6 are primes. %t A101768 a={}; Do[p=Prime[n]; If[PrimeQ[p*2+1] && PrimeQ[p*3+2] && PrimeQ[p*4+3] && PrimeQ[p*5+4] && PrimeQ[p*6+5] && PrimeQ[p*7+6], AppendTo[a, p]], {n, 1, 17^5}]; a (* _Vladimir Joseph Stephan Orlovsky_, Apr 29 2008 *) %t A101768 Select[Range[4*10^8], And@@PrimeQ[#*Range[7]+Range[0,6]]&] (* _Harvey P. Dale_, Jul 22 2011 *) %Y A101768 Cf. A000040, A005384, A067256-A067258, A101767-A101770. %K A101768 nonn,easy %O A101768 1,1 %A A101768 _Jonathan Vos Post_ and _Ray Chandler_, Dec 31 2004