OFFSET
1,1
LINKS
Jens Kruse Andersen, Table of n, a(n) for n = 1..163
EXAMPLE
MAPLE
T:=array(1..44):
for n from 1 by 2 to 88 do:
z:=0:ii:=0:
for k from 2 to 10^7 while(z=0) do:
p:=k^2+1:
if type(p, prime)=false
then
ii:=ii+1:
else
if ii=n
then
printf ( "%d %d \n", (n+1)/2, k-n-1):T[(n+1)/2]:=k-n-1:z:=1:
else
fi:
ii:=0:
fi:
od:
od:
print(T):
PROG
(PARI) for(n=1, 44, m=2; until(m==k+2*n, k=m; until(isprime(m^2+1), m++)); print1(k", ")) \\ Jens Kruse Andersen, Jul 22 2014
CROSSREFS
KEYWORD
nonn
AUTHOR
Michel Lagneau, Jul 22 2014
STATUS
approved