Reminder: The OEIS is hiring a new managing editor, and the application deadline is January 26.
%I #10 Jan 19 2025 12:09:36
%S 29,31,179,181,269,271,809,811,1019,1021,1619,1621,1949,1951,2339,
%T 2341,2999,3001,3329,3331,3389,3391,3929,3931,4049,4051,4229,4231,
%U 4649,4651,5279,5281,5639,5641,5879,5881,6089,6091,6269,6271,6359,6361,6449,6451
%N List of twin primes p1 and p2 with odd sum of digits of p1 and even sum of digits of p2.
%H Harvey P. Dale, <a href="/A158342/b158342.txt">Table of n, a(n) for n = 1..3000</a>
%t Select[Partition[Prime[Range[1000]],2,1],#[[2]]-#[[1]]==2&&OddQ[Total[IntegerDigits[#[[1]]]]]&&EvenQ[Total[IntegerDigits[#[[2]]]]]&]//Flatten (* _Harvey P. Dale_, Jan 19 2025 *)
%Y Cf. A077800.
%K nonn,base,less,changed
%O 1,1
%A _Juri-Stepan Gerasimov_, Mar 16 2009
%E Corrected (269,271 inserted, 1229,1231 removed, 3119,3121 removed...) by _R. J. Mathar_, May 19 2010