%I #16 Aug 08 2022 17:31:25
%S 5,7,31,43,73,433,463,571,643,829,883,1231,1723,2089,2131,2143,2311,
%T 2593,2659,2689,2713,2791,2971,3259,3331,3373,3463,3529,3583,3673,
%U 3853,4003,4051,4483,4651,5443,5503,5653,5743,5851,6451,6553,6571,6703,6763
%N Numbers that are the greater of twin primes such that the number of odd digits of the lesser prime equals the number of prime digits of the greater prime.
%C The greater member of a twin prime pair such that the count of its prime digits is equal to the count of odd digits in the smaller member. - _R. J. Mathar_, May 19 2010
%H Harvey P. Dale, <a href="/A158323/b158323.txt">Table of n, a(n) for n = 1..1000</a>
%e 29 and 31 are twin primes; 29 has one odd digit (9) and 31 has one prime digit (3), so 31 is a term.
%e 41 and 43 are twin primes; 41 has one odd digit (1) and 43 has one prime digit (3), so 43 is a term.
%e 71 and 73 are twin primes; 71 has two odd digits (7 and 1) and 73 has two prime digits (7 and 3), so 73 is a term.
%t Select[Partition[Prime[Range[1000]],2,1],#[[2]]-#[[1]]==2&&Count[IntegerDigits[ #[[1]]],_?OddQ]==Count[IntegerDigits[#[[2]]],_?PrimeQ]&][[All,2]] (* _Harvey P. Dale_, Aug 08 2022 *)
%Y Cf. A006512.
%K nonn,base,less
%O 1,1
%A _Juri-Stepan Gerasimov_, Mar 16 2009
%E Corrected (2131 inserted, 2533 replaced by 2593, 2659 inserted, 4231 removed etc.) by _R. J. Mathar_, May 19 2010
%E Edited by _Jon E. Schoenfield_, Apr 18 2021
|