A086304 - OEIS

%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