A289353 Primes p such that (p,p+4) is a pair of cousin primes and p == 7 (mod 10).

7, 37, 67, 97, 127, 277, 307, 397, 457, 487, 757, 877, 907, 937, 967, 1087, 1297, 1447, 1567, 1597, 1867, 2137, 2347, 2377, 2437, 2617, 2707, 2797, 2857, 3037, 3187, 3217, 3457, 3697, 3847, 3877, 3907, 4447, 5077, 5167, 5227, 5347, 5437, 5527, 5647, 5737, 5857, 6007, 6217, 6547, 6577

Offset

1,1

Comments

For cousin primes (p,p+4) such that p == 9 (mod 10), see A074822.

Members of A023200 with a last digit of 7. - Iain Fox, Dec 22 2017

Links

Muniru A Asiru, Table of n, a(n) for n = 1..10000

Example

The pair of cousin prime (3,7) is not a member since 3 mod 10 = 3.
For p = 97, we get that (97,101) is a cousin prime pair and 97 == 7 (mod 10).

Maple

a:={}: for i from 1 to 1500 do if isprime(ithprime(i)+4) and ithprime(i) mod 10 = 7 then a:={op(a), ithprime(i)}: fi: od: a; # Muniru A Asiru, Aug 04 2017

Mathematica

Select[10 Range[0, 660] + 7, PrimeQ[#] && PrimeQ[# + 4] &] (* Robert G. Wilson v, Dec 11 2017 *)

Prog

(GAP)
P:=Filtered([1..10000], IsPrime);;
P1:=List(Filtered(Filtered(List([1..Length(P)-1], n->[P[n], P[n+1]]), i->i[2]-i[1]=4), j->j[1] mod 5 =2), k->k[1]);
(PARI) isok(p) = isprime(p) && isprime(p+4) && ((p % 10) == 7); \\ Michel Marcus, Jul 03 2017
(PARI) is(n)=n%30==7 && isprime(n+4) && isprime(n) \\ Charles R Greathouse IV, Jul 13 2017

Crossrefs

Cf. A001223, A001359, A023200, A046132, A074822, A160440.

Sequence in context: A128471 A168003 A132231 * A221982 A104915 A089376

Adjacent sequences: A289350 A289351 A289352 * A289354 A289355 A289356

Keyword

nonn

Author

Muniru A Asiru, Jul 03 2017

Status

approved