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, 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

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: A215682 A215681 A215587 * A252096 A346240 A216470

Adjacent sequences: A094894 A094895 A094896 * A094898 A094899 A094900

Keyword

nonn

Author

Roger L. Bagula, Jun 14 2004

Status

approved