1,1

The average of prime(4) and prime(5) is (7 + 11)/2 = 3^2, so 4 is a term of the sequence.

Select[Range[10^4], IntegerQ[Sqrt[(Prime[ # ] + Prime[ # + 1])/2]] &]

Sequence in context: A137933 A143116 A115987 this_sequence A054300 A063101 A143533

Adjacent sequences: A076689 A076690 A076691 this_sequence A076693 A076694 A076695

easy,nonn

Joseph L. Pe (joseph_l_pe(AT)hotmail.com), Oct 25 2002