OFFSET
1,1
COMMENTS
The two primes are of the form 4*k + 1.
LINKS
Ray Chandler, Table of n, a(n) for n = 1..10000 (first 1000 terms from Colin Barker)
EXAMPLE
65 is in the sequence because x^2 + y^2 = 65 = 5*13 has solutions (x,y) = (1,8), (4,7), (7,4) and (8,1).
PROG
(PARI)
dop(d, nmax) = {
my(L=List(), v=vector(d, m, 1)~, f);
for(n=1, nmax,
f=factorint(n);
if(#f~==d && f[1, 1]>2 && f[, 2]==v && f[, 1]%4==v, listput(L, n))
);
Vec(L)
}
dop(2, 3000) \\ Colin Barker, Nov 15 2015
CROSSREFS
KEYWORD
nonn
AUTHOR
Colin Barker, Aug 28 2007, corrected Aug 29 2007
STATUS
approved