A158314 Consider a twin prime pair (p, q=p+2) such that the number of prime digits in p is equal to the number of odd digits in q; sequence lists values of p.

3, 5, 59, 281, 347, 521, 599, 659, 821, 857, 1277, 1427, 2081, 2381, 2729, 2801, 3251, 3359, 3467, 3539, 3557, 3767, 3821, 4127, 4217, 4229, 4241, 4271, 4337, 4421, 4547, 4637, 4721, 4787, 4799, 5021, 5231, 5477, 5639, 5657, 5867, 5879, 6359, 6659, 6779

Offset

1,1

Links

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

Mathematica

npdQ[{m_, n_}]:=Module[{r=Count[IntegerDigits[m], _?PrimeQ]}, n-m==2&&r==Count[IntegerDigits[n], _?OddQ]]; Select[Partition[ Prime[ Range[ 1000]], 2, 1], npdQ][[All, 1]] (* Harvey P. Dale, May 18 2019 *)

Crossrefs

Cf. A001359.

Sequence in context: A337924 A049190 A174920 * A249011 A261533 A118477

Adjacent sequences: A158311 A158312 A158313 * A158315 A158316 A158317

Keyword

nonn,base,less

Author

Juri-Stepan Gerasimov, Mar 16 2009

Extensions

Better definition from and data corrected (2381 to 3359 inserted) by R. J. Mathar, May 19 2010

Definition edited by N. J. A. Sloane, May 18 2019

Status

approved