A094897 - OEIS

The OEIS is supported by the many generous donors to the OEIS Foundation.

A094897

If 4*n+1 is not prime and 4*n+3 is prime then a(n)=4*n+3, else a(n)=0.

3

3, 0, 11, 0, 0, 23, 0, 0, 0, 0, 0, 47, 0, 0, 59, 0, 67, 71, 0, 79, 83, 0, 0, 0, 0, 0, 107, 0, 0, 0, 0, 127, 131, 0, 0, 0, 0, 0, 0, 0, 163, 167, 0, 0, 179, 0, 0, 191, 0, 0, 0, 0, 211, 0, 0, 223, 227, 0, 0, 239, 0, 0, 251, 0, 0, 263, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 307, 311, 0, 0, 0, 0, 331, 0

(list; graph; refs; listen; history; text; internal format)

OFFSET

0,1

LINKS

Table of n, a(n) for n=0..83.

MAPLE

A094897 := proc(n)

if not isprime(4*n+1) and isprime(4*n+3) then

4*n+3;

else

0;

end if;

end proc:

seq(A094897(n), n=0..86) ; # R. J. Mathar, Nov 15 2019

MATHEMATICA

a=Table[If[PrimeQ[4*n+1]==False&&PrimeQ[4*n+3]==True, 4*n+3, 0], {n, 0, 200}]

PROG

(Magma) [IsPrime(4*n+3) and not IsPrime(4*n+1) select 4*n+3 else 0:n in [0..85]]; // Marius A. Burtea, Nov 15 2019

CROSSREFS

Cf. A045751, A095278, A094896.

Sequence in context: A215681 A215587 A390573 * A252096 A346240 A216470

Adjacent sequences: A094894 A094895 A094896 * A094898 A094899 A094900

KEYWORD

nonn

AUTHOR

Roger L. Bagula, Jun 14 2004

STATUS

approved