STATUS
editing
approved
editing
approved
Select[Partition[Prime[Range[10000]], 2, 1], IntegerQ[Sqrt[Mean[#]]]&][[All, 1]] (* Harvey P. Dale, Jan 12 2019 *)
approved
editing
_Charles R Greathouse IV_, , <a href="/A225195/b225195.txt">Table of n, a(n) for n = 1..5000</a>
_Charles R Greathouse IV, _, <a href="/A225195/b225195.txt">Table of n, a(n) for n = 1..5000</a>
editing
approved
Charles R Greathouse IV, <a href="/A225195/b225195.txt">Table of n, a(n) for n = 1..5000</a>
(PARI) p=2; forprime(q=3, 1e9, if(issquare((p+q)/2), print1(p", ")); p=q) \\ Charles R Greathouse IV, May 09 2013
nonn,newchanged
approved
editing
proposed
approved
editing
proposed
editing
proposed