This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A244146 #15 Jul 12 2019 07:18:08
%S A244146 19,67,79,109,163,199,349,433,457,607,691,739,937,997,1063,1093,1327,
%T A244146 1423,1447,1489,1579,1753,1777,1987,2017,2089,2203,2287,2383,2749,
%U A244146 3229,3463,3847,3943,4051,4177,4513,4567,5347,5413,5479,5557,5653,6079,6133,6271,6661
%N A244146 Primes of the form x^2 + x*y + y^2 with x, y primes.
%C A244146 Equally: primes that are of the form (p+q)^2 - p*q, with p, q primes. - _Antti Karttunen_, Jun 21 2014
%H A244146 Jean-François Alcover, <a href="/A244146/b244146.txt">Table of n, a(n) for n = 1..2089</a>
%e A244146 The terms 19, 67, 79 and 1777753 are in the sequence because they can be represented as:
%e A244146 19 = 2^2 + 2*3 + 3^2 = (2+3)^2 - 2*3.
%e A244146 67 = 2^2 + 2*7 + 7^2 = (2+7)^2 - 2*7.
%e A244146 79 = 3^2 + 3*7 + 7^2 = (3+7)^2 - 3*7.
%e A244146 1777753 = 677^2 + 677*859 + 859^2 = (677+859)^2 - 677*859.
%t A244146 Reap[For[p = 2, p < 10^4, p = NextPrime[p], If[Reduce[p == x^2 + x y + y^2, {x, y}, Primes] =!= False, Print[p]; Sow[p]]]][[2, 1]] (* _Jean-François Alcover_, Jul 12 2019 *)
%Y A244146 Subsequence of A007645.
%Y A244146 Cf. A045331.
%K A244146 nonn
%O A244146 1,1
%A A244146 _Peter Luschny_, Jun 21 2014