Reminder: The OEIS is hiring a new managing editor, and the application deadline is January 26.
%I #19 Jan 26 2023 12:12:09
%S 0,2,4,8,10,14,22,28,32,34,38,40,44,50,52,58,68,74,80,82,88,92,94,110,
%T 112,118,122,134,140,142,148,158,160,164,170,178,182,184,188,194,208,
%U 212,220,224,230,232,238,242,250,260,268,272,278,298,304,320,334,340
%N Numbers n such that 7*n+3 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 Daniel Starodubtsev, <a href="/A089033/b089033.txt">Table of n, a(n) for n = 1..10000</a>
%F a(n) = A024903(n)-1 = A033868(n)-2 = A090614(n)*2.
%t Select[Range[1000],PrimeQ[7#+3]&]
%o (PARI) is(n)=isprime(7*n+3) \\ _Charles R Greathouse IV_, Feb 17 2017
%Y A045437 gives primes, A090613 gives prime index.
%Y Cf. A024903, A033868, A090614.
%K easy,nonn
%O 1,2
%A _Giovanni Teofilatto_, Nov 12 2003
%E Corrected and extended by _Ray Chandler_, Nov 12 2003
%E Offset corrected by _Arkadiusz Wesolowski_, Aug 09 2011