A181604 Twin primes ending in 3.

3, 13, 43, 73, 103, 193, 283, 313, 433, 463, 523, 643, 823, 883, 1033, 1063, 1093, 1153, 1303, 1453, 1483, 1723, 1873, 1933, 2083, 2113, 2143, 2383, 2593, 2713, 2803, 3253, 3373, 3463, 3583, 3673, 3823, 3853, 4003, 4093, 4243, 4273, 4423, 4483, 4723, 4933

Offset

1,1

Links

Table of n, a(n) for n=1..46.

Omar E. Pol, Determinacion geometrica de los numeros primos y perfectos

Maple

isA181604 := proc(p)
    if isprime(p) and (isprime(p-2) or isprime(p+2)) then
        if modp(p, 10) = 3 then
            true;
        else
            false;
        end if ;
    else
        false;
    end if;
end proc: # R. J. Mathar, Feb 14 2017

Mathematica

Select[Prime@Range@700, Mod[ #, 10] == 3 && (PrimeQ[ # - 2] || PrimeQ[ # + 2]) &] (* Robert G. Wilson v, Nov 06 2010 *)

Crossrefs

Cf. A001097, A181603, A181605, A181606.

Sequence in context: A163182 A267455 A138249 * A084476 A289413 A247584

Adjacent sequences: A181601 A181602 A181603 * A181605 A181606 A181607

Keyword

base,nonn

Author

Omar E. Pol, Nov 01 2010

Extensions

More terms from Robert G. Wilson v, Nov 06 2010

Status

approved