OFFSET
1,3
COMMENTS
EXAMPLE
MAPLE
with(numtheory):T:=array(1..300): for n from 1 to 300 do:x:=factorset(n^2+1):n1:=nops(x): T[n] := x[n1]:od:for a from 1 to 60 do:p:=T[a]:ii:=0:for b from a to 10000 do: z:=factorset(b^2+1): n2:=nops(z):if z[n2]=p and ii=0 then b0:=b:ii:=1:else if z[n2]=p and ii=1 then b1:=b:printf(`%d, `, b1-b0):ii:=2:else fi:fi:od:if ii=1 then printf(`%d, `, 0):else fi:od:
CROSSREFS
KEYWORD
nonn
AUTHOR
Michel Lagneau, Oct 02 2012
STATUS
approved