A169817 n-th prime with both a prime number of 0's and a prime number of 1's in binary representation minus n-th semiprime with both a prime number of 0's and a prime number of 1's in their binary representation.

8, 9, 16, 19, 54, 77, 72, 71, 82, 72, 64, 66, 74, 79, 64, 63, 72, 77, 78, 93, 86, 88, 95, 102, 209, 218, 246, 245, 240, 258, 281, 278, 285, 304, 323, 238, 182, 187, 162, 142, 155, 136, 135, 124, 130, 139, 142, 138, 142, 134, 148, 166, 167, 174, 176, 168, 177, 174

Offset

1,1

Links

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

Formula

a(n)=A144214(n)-A178350(n).

Example

a(1)=A144214(1)-A178350(1)=17-9=8.

Mathematica

pn0Q[n_]:=PrimeQ[DigitCount[n, 2, 1]]&&PrimeQ[DigitCount[n, 2, 0]]; nn=600; Module[{ps=Select[Prime[Range[nn]], pn0Q], sps=Select[Range[nn], PrimeOmega[#]==2&&pn0Q[#]&], minlen}, minlen=Min[Length[ps], Length[ sps]]; First[#]-Last[#]&/@Thread[{Take[ps, minlen], Take[sps, minlen]}]] (* Harvey P. Dale, May 07 2012 *)

Crossrefs

Cf. A014499, A035103, A178064, A178065.

Sequence in context: A143720 A231016 A346090 * A351098 A227649 A227648

Adjacent sequences: A169814 A169815 A169816 * A169818 A169819 A169820

Keyword

nonn

Author

Juri-Stepan Gerasimov, May 25 2010

Extensions

Corrected (96 replaced by 86, all numbers from a(27) on replaced) by R. J. Mathar, Jun 04 2010

Status

approved