%I #13 Sep 08 2022 08:45:11
%S 1,5,7,11,13,17,23,25,31,35,37,41,47,53,55,61,65,67,73,77,83,91,95,97,
%T 101,103,107,121,125,131,133,143,145,151,157,161,167,173,175,185,187,
%U 191,193,205,217,221,223,227,233,235,245,251,257,263,265,271,275,277
%N Numbers n such that n+6 is prime.
%D M. Cerasoli, F. Eugeni and M. Protasi, Elementi di Matematica Discreta, Bologna 1988
%D Emanuele Munarini and Norma Zagaglia Salvi, Matematica Discreta, UTET, CittaStudiEdizioni, Milano 1997
%H Vincenzo Librandi, <a href="/A086304/b086304.txt">Table of n, a(n) for n = 1..1000</a>
%F a(n) = 2*A089038(n+1)-1.
%t Select[Range[0, 900], PrimeQ[# + 6] &] (* _Vincenzo Librandi_, Oct 16 2012 *)
%o (Magma) [n: n in [0..300]| IsPrime(n + 6)]; // _Vincenzo Librandi_, Oct 16 2012
%o (PARI) is(n)=isprime(n+6) \\ _Charles R Greathouse IV_, May 22 2017
%Y Cf. A089038.
%K nonn,easy
%O 1,2
%A _Giovanni Teofilatto_, Aug 29 2003
%E Corrected and extended by _Ray Chandler_, Nov 29 2003