1,1
5+7+(7-5)/2=5+7+1=13
a = {}; Do[p1 = Prime[n]; p2 = Prime[n + 1]; p = p1 + p2 + (p2 - p1)/2; If[PrimeQ[p], AppendTo[a, p]], {n, 10^2}]; a
Sequence in context: A063913 A119705 A045809 this_sequence A089030 A141122 A068228
Adjacent sequences: A140109 A140110 A140111 this_sequence A140113 A140114 A140115
nonn
Vladimir Orlovsky (4vladimir(AT)gmail.com), Jun 21 2008
Search completed in 0.002 seconds