%I A105093
%S A105093 18,24,30,36,60,84,120,162,204,210,216,240,288,330,372,390,456,520,540,
%T A105093 624,726,762,798,840,852,882,924,978,990,1104,1140,1164,1200,1392,1410,
%U A105093 1428,1530,1632,1650,1716,1740,1764,1794,1848,1974,2052,2100,2112,2184
%N A105093 Numbers n such that n = prime(k) + prime(k+3) = prime(k+1) + prime(k+2) 
               for some k.
%H A105093 Eric Weisstein's World of Mathematics, <a href="http://mathworld.wolfram.com/
               GoldbachConjecture.html">Goldbach Conjecture</a>
%e A105093 a(1)=18 because prime(3)+prime(6)=prime(4)+prime(5)=5+13=7+11=18.
%t A105093 lst = {}; Do[ If[ Prime[n] + Prime[n + 3] == Prime[n + 1] + Prime[n + 
               2], AppendTo[lst, Prime[n] + Prime[n + 3]]], {n, 184}]; lst (from 
               Robert G. Wilson v (rgwv(AT)rgwv.com), Apr 07 2005)
%Y A105093 Cf. A001172, A000954, first primes in A022885.
%Y A105093 Sequence in context: A076770 A105679 A076771 this_sequence A162331 A092536 
               A125261
%Y A105093 Adjacent sequences: A105090 A105091 A105092 this_sequence A105094 A105095 
               A105096
%K A105093 nonn
%O A105093 1,1
%A A105093 Giovanni Teofilatto (g.teofilatto(AT)tiscalinet.it), Apr 06 2005
%E A105093 Edited and extended from Robert G. Wilson v (rgwv(AT)rgwv.com), Apr 07 
               2005