OFFSET
1,1
EXAMPLE
MAPLE
with(numtheory):nn:=10000:T:=array(1..10000):k:=2:T[1]:=2:for x from 1 to nn
do: p:=4*x+1:if type(p, prime)=true then T[k]:=p:k:=k+1:else fi:od:for n from
2 to 100 do: id:=0:for p from 1 to k while(id=0) do:x:=T[n]*T[p]-1:y:=sqrt(x):if
y=floor(y)then id:=1:printf(`%d, `, y):else fi:od:od:
CROSSREFS
KEYWORD
nonn
AUTHOR
Michel Lagneau, Jan 29 2011
STATUS
approved