OFFSET
1,1
LINKS
Harvey P. Dale, Table of n, a(n) for n = 1..3000
MATHEMATICA
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 *)
CROSSREFS
KEYWORD
nonn,base,less
AUTHOR
Juri-Stepan Gerasimov, Mar 16 2009
EXTENSIONS
Corrected (269,271 inserted, 1229,1231 removed, 3119,3121 removed...) by R. J. Mathar, May 19 2010
STATUS
approved