OFFSET
1,1
COMMENTS
EXAMPLE
30 = 13 + 17, 60 = 29 + 31, 90 = 47 + 53, 100 = 47 + 53.
MATHEMATICA
Select[(Total /@ Partition[Prime[Range[300]], 2, 1]), Mod[#, 10] < 1 &]
PROG
(PARI) p=13; forprime(q=17, 1000, s=p+q; s%10<1&&print1(s", "); p=q)
CROSSREFS
KEYWORD
nonn
AUTHOR
Zak Seidov, Feb 26 2013
STATUS
approved