OFFSET
1,1
COMMENTS
EXAMPLE
MAPLE
f:= proc(n) local q;
q:= floor(sqrt(2)*n);
do
q:= nextprime(q);
if isprime(q^2-2*n^2) then return q fi;
od
end proc;
R:= Vector(6): count:= 0:
p:= 2: v:= f(2): c:= 1:
for k from 2 while count < 6 do
p:= nextprime(p);
w:= f(p);
if w = v then c:= c+1
else
if R[c] = 0 then R[c]:= k-c; count:= count+1 fi;
v:= w;
c:= 1;
fi
od:
convert(R, list);
CROSSREFS
KEYWORD
nonn,more
AUTHOR
J. M. Bergot and Robert Israel, Jul 24 2022
STATUS
approved